Grid1->BeginUpdate();
Grid1->ColumnAutoResize = false;
/*
	Select the Component\Import Component...\Import a Type Library,
	to import the following Type Library:

		Microsoft ActiveX Data Objects 6.1 Library

	TypeLib: msado15.dll

	to define the namespace: Adodb_tlb
*/
//#include "ADODB_TLB.h"
Adodb_tlb::_RecordsetPtr rs = Variant::CreateObject(L"ADOR.Recordset");
	rs->Open(TVariant("Orders"),TVariant("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\\Program Files\\Exontrol\\ExGrid\\Sample\\Access\\misc.accdb"),Adodb_tlb::CursorTypeEnum::adOpenStatic,Adodb_tlb::LockTypeEnum::adLockOptimistic,0);
Grid1->DataSource = (IDispatch*)rs;
Grid1->SortBarVisible = true;
Grid1->SortBarCaption = L"Drag a <b>column</b> header here to group by that column.";
Grid1->AllowGroupBy = true;
Grid1->Columns->get_Item(TVariant(1))->SortOrder = Exgridlib_tlb::SortOrderEnum::SortAscending;
Grid1->EndUpdate();
Grid1->BeginUpdate();
Grid1->EnsureVisibleColumn(TVariant(0));
Exgridlib_tlb::IItemsPtr var_Items = Grid1->Items;
	var_Items->set_ExpandItem(var_Items->FirstVisibleItem,false);
Grid1->EndUpdate();

Grid1->BeginUpdate();
Exgridlib_tlb::IColumnsPtr var_Columns = Grid1->Columns;
	var_Columns->Add(L"C1");
	var_Columns->Add(L"C2")->FormatColumn = L"1 index `A-Z`";
	var_Columns->Add(L"C3")->FormatColumn = L"100 index ``";
Exgridlib_tlb::IItemsPtr var_Items = Grid1->Items;
	var_Items->AddItem(TVariant("Item 1"));
	var_Items->set_SelectItem(var_Items->AddItem(TVariant("Item 2")),true);
	var_Items->AddItem(TVariant("Item 3"));
Grid1->EndUpdate();
OutputDebugString( L"Export CSV Selected Items Only:" );
OutputDebugString( PChar(Grid1->Export(TVariant(""),TVariant("sel"))) );

Grid1->BeginUpdate();
Grid1->ScrollBars = Exgridlib_tlb::ScrollBarsEnum::exDisableBoth;
Grid1->ScrollPartVisible[Exgridlib_tlb::ScrollBarEnum::exVScroll,Exgridlib_tlb::ScrollPartEnum::exExtentThumbPart] = true;
Grid1->ScrollPartVisible[Exgridlib_tlb::ScrollBarEnum::exHScroll,Exgridlib_tlb::ScrollPartEnum::exExtentThumbPart] = true;
Grid1->ScrollPartVisible[Exgridlib_tlb::ScrollBarEnum(0x2),Exgridlib_tlb::ScrollPartEnum::exExtentThumbPart] = true;
Grid1->ScrollWidth = 4;
Grid1->Background[Exgridlib_tlb::BackgroundPartEnum::exVSBack] = RGB(240,240,240);
Grid1->Background[Exgridlib_tlb::BackgroundPartEnum::exVSThumb] = RGB(128,128,128);
Grid1->ScrollHeight = 4;
Grid1->Background[Exgridlib_tlb::BackgroundPartEnum::exHSBack] = Grid1->Background[Exgridlib_tlb::BackgroundPartEnum::exVSBack];
Grid1->Background[Exgridlib_tlb::BackgroundPartEnum::exHSThumb] = Grid1->Background[Exgridlib_tlb::BackgroundPartEnum::exVSThumb];
Grid1->Background[Exgridlib_tlb::BackgroundPartEnum::exScrollSizeGrip] = Grid1->Background[Exgridlib_tlb::BackgroundPartEnum::exVSBack];
Grid1->EndUpdate();

Grid1->BeginUpdate();
Grid1->MarkSearchColumn = false;
Exgridlib_tlb::IColumnsPtr var_Columns = Grid1->Columns;
	var_Columns->Add(L"Name");
	Exgridlib_tlb::IColumnPtr var_Column = var_Columns->Add(L"Currency");
		var_Column->SortType = Exgridlib_tlb::SortTypeEnum::SortNumeric;
		var_Column->AllowSizing = false;
		var_Column->Width = 64;
		var_Column->FormatColumn = L"currency(value)";
	Exgridlib_tlb::IColumnPtr var_Column1 = var_Columns->Add(L"Format");
		var_Column1->SortType = Exgridlib_tlb::SortTypeEnum::SortNumeric;
		var_Column1->AllowSizing = false;
		var_Column1->Width = 64;
		var_Column1->FormatColumn = L"`AED ` + (value format ``)";
Exgridlib_tlb::IItemsPtr var_Items = Grid1->Items;
	long h = var_Items->AddItem(TVariant("Value 1"));
	var_Items->set_CellValue(TVariant(h),TVariant(1),TVariant(10));
	var_Items->set_CellValue(TVariant(h),TVariant(2),TVariant(10));
	h = var_Items->AddItem(TVariant("Value 2"));
	var_Items->set_CellValue(TVariant(h),TVariant(1),TVariant(20));
	var_Items->set_CellValue(TVariant(h),TVariant(2),TVariant(20));
Grid1->EndUpdate();

Grid1->BeginUpdate();
Grid1->MarkSearchColumn = false;
Exgridlib_tlb::IColumnsPtr var_Columns = Grid1->Columns;
	Exgridlib_tlb::IColumnPtr var_Column = var_Columns->Add(L"Car");
		var_Column->DisplayFilterButton = true;
		var_Column->FilterType = Exgridlib_tlb::FilterTypeEnum::exFilter;
		var_Column->Filter = L"MAZDA";
	Exgridlib_tlb::IColumnPtr var_Column1 = var_Columns->Add(L"Equipment");
		var_Column1->DisplayFilterButton = true;
		var_Column1->DisplayFilterPattern = false;
		var_Column1->CustomFilter = L"Air Bag||*Air Bag*|||Air condition||*Air condition*|||ABS||*ABS*|||ESP||*ESP*";
		var_Column1->FilterType = Exgridlib_tlb::FilterTypeEnum::exPattern;
		var_Column1->Filter = L"AIR BAG";
Exgridlib_tlb::IItemsPtr var_Items = Grid1->Items;
	var_Items->set_CellValue(TVariant(var_Items->AddItem(TVariant("Mazda"))),TVariant(1),TVariant("Air Bag"));
	var_Items->set_CellValue(TVariant(var_Items->AddItem(TVariant("Toyota"))),TVariant(1),TVariant("Air Bag,Air condition"));
	var_Items->set_CellValue(TVariant(var_Items->AddItem(TVariant("Ford"))),TVariant(1),TVariant("Air condition"));
	var_Items->set_CellValue(TVariant(var_Items->AddItem(TVariant("Nissan"))),TVariant(1),TVariant("Air Bag,ABS,ESP"));
	var_Items->set_CellValue(TVariant(var_Items->AddItem(TVariant("Mazda"))),TVariant(1),TVariant("Air Bag, ABS,ESP"));
	var_Items->set_CellValue(TVariant(var_Items->AddItem(TVariant("Mazda"))),TVariant(1),TVariant("ABS,ESP"));
Grid1->ApplyFilter();
Grid1->EndUpdate();

Grid1->BeginUpdate();
Grid1->MarkSearchColumn = false;
Exgridlib_tlb::IColumnsPtr var_Columns = Grid1->Columns;
	Exgridlib_tlb::IColumnPtr var_Column = var_Columns->Add(L"Car");
		var_Column->DisplayFilterButton = true;
		var_Column->FilterType = Exgridlib_tlb::FilterTypeEnum::exFilterDoCaseSensitive | Exgridlib_tlb::FilterTypeEnum::exFilter;
		var_Column->Filter = L"Mazda";
	Exgridlib_tlb::IColumnPtr var_Column1 = var_Columns->Add(L"Equipment");
		var_Column1->DisplayFilterButton = true;
		var_Column1->DisplayFilterPattern = false;
		var_Column1->CustomFilter = L"Air Bag||*Air Bag*|||Air condition||*Air condition*|||ABS||*ABS*|||ESP||*ESP*";
		var_Column1->FilterType = Exgridlib_tlb::FilterTypeEnum::exFilterDoCaseSensitive | Exgridlib_tlb::FilterTypeEnum::exPattern;
		var_Column1->Filter = L"Air Bag";
Exgridlib_tlb::IItemsPtr var_Items = Grid1->Items;
	var_Items->set_CellValue(TVariant(var_Items->AddItem(TVariant("Mazda"))),TVariant(1),TVariant("Air Bag"));
	var_Items->set_CellValue(TVariant(var_Items->AddItem(TVariant("Toyota"))),TVariant(1),TVariant("Air Bag,Air condition"));
	var_Items->set_CellValue(TVariant(var_Items->AddItem(TVariant("Ford"))),TVariant(1),TVariant("Air condition"));
	var_Items->set_CellValue(TVariant(var_Items->AddItem(TVariant("Nissan"))),TVariant(1),TVariant("Air Bag,ABS,ESP"));
	var_Items->set_CellValue(TVariant(var_Items->AddItem(TVariant("Mazda"))),TVariant(1),TVariant("Air Bag, ABS,ESP"));
	var_Items->set_CellValue(TVariant(var_Items->AddItem(TVariant("Mazda"))),TVariant(1),TVariant("ABS,ESP"));
Grid1->ApplyFilter();
Grid1->EndUpdate();

Grid1->Columns->Add(L"Default")->set_Def(Exgridlib_tlb::DefColumnEnum::exCellValueFormat,TVariant(1));
Exgridlib_tlb::IItemsPtr var_Items = Grid1->Items;
	var_Items->set_LockedItemCount(Exgridlib_tlb::VAlignmentEnum::exTop,1);
	long h = var_Items->get_LockedItem(Exgridlib_tlb::VAlignmentEnum::exTop,0);
	var_Items->set_CellValue(TVariant(h),TVariant(0),TVariant("sum(all,rec,%0)"));
	var_Items->set_CellValueFormat(TVariant(h),TVariant(0),Exgridlib_tlb::ValueFormatEnum::exTotalField | Exgridlib_tlb::ValueFormatEnum::exHTML);
	var_Items->set_FormatCell(TVariant(h),TVariant(0),L"`Sum: ` + (value format ``) ");
	var_Items->AddItem(TVariant(10));
	h = var_Items->AddItem(TVariant(20));
	var_Items->set_SortableItem(h,false);
	var_Items->set_FormatCell(TVariant(h),TVariant(0),L"value + ` <fgcolor=808080> this item is excluded from aggregate computations</fgcolor>`");
	var_Items->AddItem(TVariant(30));

Grid1->BeginUpdate();
Grid1->HasLines = Exgridlib_tlb::HierarchyLineEnum::exNoLine;
Grid1->ColumnAutoResize = false;
/*
	Select the Component\Import Component...\Import a Type Library,
	to import the following Type Library:

		Microsoft ActiveX Data Objects 6.1 Library

	TypeLib: msado15.dll

	to define the namespace: Adodb_tlb
*/
//#include "ADODB_TLB.h"
Adodb_tlb::_RecordsetPtr rs = Variant::CreateObject(L"ADOR.Recordset");
	rs->Open(TVariant("Orders"),TVariant("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\\Program Files\\Exontrol\\ExGrid\\Sample\\Access\\misc.accdb"),Adodb_tlb::CursorTypeEnum::adOpenStatic,Adodb_tlb::LockTypeEnum::adLockOptimistic,0);
Grid1->DataSource = (IDispatch*)rs;
Grid1->SingleSort = false;
Grid1->SortBarVisible = true;
Grid1->AllowGroupBy = true;
Grid1->Columns->get_Item(TVariant(6))->AllowGroupBy = false;
Exgridlib_tlb::IColumnPtr var_Column = Grid1->Columns->get_Item(TVariant(1));
	var_Column->GroupByFormatCell = L"'<caption> (sum: <b>' + value + '</b>, of Freight)'";
	var_Column->GroupByTotalField = L"sum(current,rec,%6)";
	var_Column->SortOrder = true;
Grid1->EndUpdate();

// AddGroupItem event - Occurs after a new Group Item has been inserted to Items collection.
void __fastcall TForm1::Grid1AddGroupItem(TObject *Sender,Exgridlib_tlb::HITEM   Item)
{
	Exgridlib_tlb::IItemsPtr var_Items = Grid1->Items;
		OutputDebugString( L"Caption:" );
		OutputDebugString( var_Items->get_CellCaption(TVariant(Item),TVariant(var_Items->get_GroupItem(Item))) );
		OutputDebugString( L"Value:" );
		OutputDebugString( PChar(var_Items->get_CellValue(TVariant(Item),TVariant(var_Items->get_GroupItem(Item)))) );
}

Grid1->BeginUpdate();
Grid1->HasLines = Exgridlib_tlb::HierarchyLineEnum::exNoLine;
Grid1->ColumnAutoResize = false;
/*
	Select the Component\Import Component...\Import a Type Library,
	to import the following Type Library:

		Microsoft ActiveX Data Objects 6.1 Library

	TypeLib: msado15.dll

	to define the namespace: Adodb_tlb
*/
//#include "ADODB_TLB.h"
Adodb_tlb::_RecordsetPtr rs = Variant::CreateObject(L"ADOR.Recordset");
	rs->Open(TVariant("Orders"),TVariant("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\\Program Files\\Exontrol\\ExGrid\\Sample\\Access\\misc.accdb"),Adodb_tlb::CursorTypeEnum::adOpenStatic,Adodb_tlb::LockTypeEnum::adLockOptimistic,0);
Grid1->DataSource = (IDispatch*)rs;
Grid1->SingleSort = false;
Grid1->SortBarVisible = true;
Grid1->AllowGroupBy = true;
Exgridlib_tlb::IColumnPtr var_Column = Grid1->Columns->get_Item(TVariant(1));
	var_Column->GroupByFormatCell = L"'<b><caption></b> (' + value + ') group'";
	var_Column->SortOrder = true;
Grid1->EndUpdate();

// AddGroupItem event - Occurs after a new Group Item has been inserted to Items collection.
void __fastcall TForm1::Grid1AddGroupItem(TObject *Sender,Exgridlib_tlb::HITEM   Item)
{
	Exgridlib_tlb::IItemsPtr var_Items = Grid1->Items;
		var_Items->set_FormatCell(TVariant(Item),TVariant(var_Items->get_GroupItem(Item)),L"value + ` Min: <b>` + %13 + `</b> Max: <b>` + %14 + `</b> Sum: <b>` + %15 + `</b>, of Freight column`");
		var_Items->set_CellValue(TVariant(Item),TVariant("Min"),TVariant("min(current,all,dbl(%6))"));
		var_Items->set_CellValueFormat(TVariant(Item),TVariant("Min"),Exgridlib_tlb::ValueFormatEnum::exTotalField);
		var_Items->set_CellValue(TVariant(Item),TVariant("Max"),TVariant("max(current,all,dbl(%6))"));
		var_Items->set_CellValueFormat(TVariant(Item),TVariant("Max"),Exgridlib_tlb::ValueFormatEnum::exTotalField);
		var_Items->set_CellValue(TVariant(Item),TVariant("Sum"),TVariant("sum(current,all,dbl(%6))"));
		var_Items->set_CellValueFormat(TVariant(Item),TVariant("Sum"),Exgridlib_tlb::ValueFormatEnum::exTotalField);
}

// Change event - Occurs when the user changes the cell's content.
void __fastcall TForm1::Grid1Change(TObject *Sender,Exgridlib_tlb::HITEM   Item,long   ColIndex,Variant *   NewValue)
{
	Grid1->Refresh();
}

Grid1->BeginUpdate();
Grid1->HasLines = Exgridlib_tlb::HierarchyLineEnum::exNoLine;
Grid1->ColumnAutoResize = false;
/*
	Select the Component\Import Component...\Import a Type Library,
	to import the following Type Library:

		Microsoft ActiveX Data Objects 6.1 Library

	TypeLib: msado15.dll

	to define the namespace: Adodb_tlb
*/
//#include "ADODB_TLB.h"
Adodb_tlb::_RecordsetPtr rs = Variant::CreateObject(L"ADOR.Recordset");
	rs->Open(TVariant("Orders"),TVariant("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\\Program Files\\Exontrol\\ExGrid\\Sample\\Access\\misc.accdb"),Adodb_tlb::CursorTypeEnum::adOpenStatic,Adodb_tlb::LockTypeEnum::adLockOptimistic,0);
Grid1->DataSource = (IDispatch*)rs;
Grid1->SingleSort = false;
Grid1->SortBarVisible = true;
Grid1->AllowGroupBy = true;
Grid1->Columns->get_Item(TVariant(1))->SortOrder = true;
Exgridlib_tlb::IColumnsPtr var_Columns = Grid1->Columns;
	var_Columns->Add(L"Min")->Visible = false;
	var_Columns->Add(L"Max")->Visible = false;
	var_Columns->Add(L"Sum")->Visible = false;
Grid1->EndUpdate();

// Change event - Occurs when the user changes the cell's content.
void __fastcall TForm1::Grid1Change(TObject *Sender,Exgridlib_tlb::HITEM   Item,long   ColIndex,Variant *   NewValue)
{
	Grid1->Refresh();
}

Grid1->BeginUpdate();
Grid1->SortOnClick = Exgridlib_tlb::SortOnClickEnum::exNoSort;
Grid1->LinesAtRoot = Exgridlib_tlb::LinesAtRootEnum::exGroupLinesOutside;
Grid1->Indent = 13;
Grid1->HeaderVisible = false;
Grid1->LinesAtRoot = Exgridlib_tlb::LinesAtRootEnum::exLinesAtRoot;
Exgridlib_tlb::IColumnsPtr var_Columns = Grid1->Columns;
	var_Columns->Add(L"Items");
	var_Columns->Add(L"Quantity")->Editor->EditType = Exgridlib_tlb::EditTypeEnum::SpinType;
	var_Columns->Add(L"Sum")->Visible = false;
	var_Columns->Add(L"Min")->Visible = false;
	var_Columns->Add(L"Max")->Visible = false;
Exgridlib_tlb::IItemsPtr var_Items = Grid1->Items;
	long h = var_Items->AddItem(TVariant("Items"));
	var_Items->set_CellMerge(TVariant(h),TVariant(0),TVariant(1));
	var_Items->set_FormatCell(TVariant(h),TVariant(0),L"`Items, <b>sum(` + %2 + `), min(` + %3 + `), max(` + %4 + `)</b>`");
	var_Items->set_CellValueFormat(TVariant(h),TVariant(0),Exgridlib_tlb::ValueFormatEnum::exHTML);
	var_Items->set_CellValue(TVariant(h),TVariant(2),TVariant("sum(current,dir,dbl(%1))"));
	var_Items->set_CellValueFormat(TVariant(h),TVariant(2),Exgridlib_tlb::ValueFormatEnum::exTotalField);
	var_Items->set_CellValue(TVariant(h),TVariant(3),TVariant("min(current,dir,dbl(%1))"));
	var_Items->set_CellValueFormat(TVariant(h),TVariant(3),Exgridlib_tlb::ValueFormatEnum::exTotalField);
	var_Items->set_CellValue(TVariant(h),TVariant(4),TVariant("max(current,dir,dbl(%1))"));
	var_Items->set_CellValueFormat(TVariant(h),TVariant(4),Exgridlib_tlb::ValueFormatEnum::exTotalField);
	var_Items->set_CellValue(TVariant(var_Items->InsertItem(h,TNoParam(),TVariant("Item 1"))),TVariant(1),TVariant(10));
	var_Items->set_CellValue(TVariant(var_Items->InsertItem(h,TNoParam(),TVariant("Item 2"))),TVariant(1),TVariant(20));
	var_Items->set_CellValue(TVariant(var_Items->InsertItem(h,TNoParam(),TVariant("Item 3"))),TVariant(1),TVariant(30));
	var_Items->set_ExpandItem(h,true);
Grid1->EndUpdate();

// Change event - Occurs when the user changes the cell's content.
void __fastcall TForm1::Grid1Change(TObject *Sender,Exgridlib_tlb::HITEM   Item,long   ColIndex,Variant *   NewValue)
{
	Grid1->Refresh();
}

Grid1->BeginUpdate();
Grid1->SortOnClick = Exgridlib_tlb::SortOnClickEnum::exNoSort;
Grid1->LinesAtRoot = Exgridlib_tlb::LinesAtRootEnum::exGroupLinesOutside;
Grid1->Indent = 13;
Grid1->HeaderVisible = false;
Grid1->LinesAtRoot = Exgridlib_tlb::LinesAtRootEnum::exLinesAtRoot;
Exgridlib_tlb::IColumnsPtr var_Columns = Grid1->Columns;
	var_Columns->Add(L"Items");
	var_Columns->Add(L"Quantity")->Editor->EditType = Exgridlib_tlb::EditTypeEnum::SpinType;
Exgridlib_tlb::IItemsPtr var_Items = Grid1->Items;
	long h = var_Items->AddItem(TVariant("Items"));
	var_Items->set_CellValue(TVariant(h),TVariant(1),TVariant("sum(current,dir,dbl(%1))"));
	var_Items->set_CellValueFormat(TVariant(h),TVariant(1),Exgridlib_tlb::ValueFormatEnum::exTotalField);
	var_Items->set_FormatCell(TVariant(h),TVariant(1),L"`Total: `+ value");
	var_Items->set_CellValue(TVariant(var_Items->InsertItem(h,TNoParam(),TVariant("Item 1"))),TVariant(1),TVariant(10));
	var_Items->set_CellValue(TVariant(var_Items->InsertItem(h,TNoParam(),TVariant("Item 2"))),TVariant(1),TVariant(20));
	var_Items->set_CellValue(TVariant(var_Items->InsertItem(h,TNoParam(),TVariant("Item 3"))),TVariant(1),TVariant(30));
	var_Items->set_ExpandItem(h,true);
Grid1->EndUpdate();

// Change event - Occurs when the user changes the cell's content.
void __fastcall TForm1::Grid1Change(TObject *Sender,Exgridlib_tlb::HITEM   Item,long   ColIndex,Variant *   NewValue)
{
	Grid1->Refresh();
}

Grid1->BeginUpdate();
Grid1->DrawGridLines = Exgridlib_tlb::GridLinesEnum::exAllLines;
Grid1->SortOnClick = Exgridlib_tlb::SortOnClickEnum::exNoSort;
Grid1->LinesAtRoot = Exgridlib_tlb::LinesAtRootEnum::exGroupLinesOutside;
Grid1->HasLines = Exgridlib_tlb::HierarchyLineEnum::exThinLine;
Grid1->HeaderVisible = false;
Grid1->Columns->Add(L"Numbers")->Editor->EditType = Exgridlib_tlb::EditTypeEnum::SpinType;
Exgridlib_tlb::IItemsPtr var_Items = Grid1->Items;
	long h = var_Items->AddItem(TVariant("Numbers"));
	var_Items->set_CellEditorVisible(TVariant(h),TVariant(0),Exgridlib_tlb::EditorVisibleEnum::exEditorHidden);
	var_Items->set_ItemBold(var_Items->InsertItem(h,TNoParam(),TVariant(10)),true);
	var_Items->set_ItemBold(var_Items->InsertItem(h,TNoParam(),TVariant(20)),true);
	var_Items->set_ItemBold(var_Items->InsertItem(h,TNoParam(),TVariant(30)),true);
	long h1 = var_Items->InsertItem(h,TNoParam(),TVariant("not included"));
	var_Items->set_CellEditorVisible(TVariant(h1),TVariant(0),Exgridlib_tlb::EditorVisibleEnum::exEditorHidden);
	var_Items->set_CellValueFormat(TVariant(h1),TVariant(0),Exgridlib_tlb::ValueFormatEnum::exHTML);
	var_Items->set_CellHAlignment(TVariant(h1),TVariant(0),Exgridlib_tlb::AlignmentEnum::RightAlignment);
	var_Items->set_SortableItem(h1,false);
	h1 = var_Items->InsertItem(0,TNoParam(),TVariant("sum(all,rec,dbl(%0))"));
	var_Items->set_ItemBold(h1,true);
	var_Items->set_SelectableItem(h1,false);
	var_Items->set_CellValueFormat(TVariant(h1),TVariant(0),Exgridlib_tlb::ValueFormatEnum::exTotalField | Exgridlib_tlb::ValueFormatEnum::exHTML);
	var_Items->set_FormatCell(TVariant(h1),TVariant(0),L"`Sum: ` + value");
	var_Items->set_ExpandItem(h,true);
Grid1->EndUpdate();

// AddItem event - Occurs after a new Item has been inserted to Items collection.
void __fastcall TForm1::Grid1AddItem(TObject *Sender,Exgridlib_tlb::HITEM   Item)
{
	Grid1->Items->set_SortableItem(Item,false);
}

// CellStateChanged event - Fired after cell's state has been changed.
void __fastcall TForm1::Grid1CellStateChanged(TObject *Sender,Exgridlib_tlb::HITEM   Item,long   ColIndex)
{
	Exgridlib_tlb::IItemsPtr var_Items = Grid1->Items;
		var_Items->set_SortableItem(Item,false);
	Grid1->Refresh();
}

// Change event - Occurs when the user changes the cell's content.
void __fastcall TForm1::Grid1Change(TObject *Sender,Exgridlib_tlb::HITEM   Item,long   ColIndex,Variant *   NewValue)
{
	Grid1->Refresh();
}

Grid1->BeginUpdate();
Grid1->TreeColumnIndex = -1;
Grid1->FullRowSelect = Exgridlib_tlb::CellSelectEnum::exColumnSel;
Grid1->DrawGridLines = Exgridlib_tlb::GridLinesEnum::exAllLines;
Grid1->SortOnClick = Exgridlib_tlb::SortOnClickEnum::exNoSort;
Grid1->Columns->Add(L"Check Numbers")->Editor->EditType = Exgridlib_tlb::EditTypeEnum::SpinType;
Exgridlib_tlb::IItemsPtr var_Items = Grid1->Items;
	var_Items->set_CellHasCheckBox(TVariant(var_Items->AddItem(TVariant(10))),TVariant(0),true);
	long h = var_Items->AddItem(TVariant(20));
	var_Items->set_CellHasCheckBox(TVariant(h),TVariant(0),true);
	var_Items->set_CellState(TVariant(h),TVariant(0),1);
	var_Items->set_CellHasCheckBox(TVariant(var_Items->AddItem(TVariant(30))),TVariant(0),true);
	h = var_Items->AddItem(TVariant("sum(all,rec,dbl(%0))"));
	var_Items->set_SelectableItem(h,false);
	var_Items->set_CellValueFormat(TVariant(h),TVariant(0),Exgridlib_tlb::ValueFormatEnum::exTotalField | Exgridlib_tlb::ValueFormatEnum::exHTML);
	var_Items->set_FormatCell(TVariant(h),TVariant(0),L"`sum on checked items : ` + value");
Grid1->EndUpdate();

// Change event - Occurs when the user changes the cell's content.
void __fastcall TForm1::Grid1Change(TObject *Sender,Exgridlib_tlb::HITEM   Item,long   ColIndex,Variant *   NewValue)
{
	Grid1->Refresh();
}

Grid1->BeginUpdate();
Grid1->TreeColumnIndex = -1;
Grid1->FullRowSelect = Exgridlib_tlb::CellSelectEnum::exColumnSel;
Grid1->DrawGridLines = Exgridlib_tlb::GridLinesEnum::exAllLines;
Grid1->Columns->Add(L"Numbers")->Editor->EditType = Exgridlib_tlb::EditTypeEnum::SpinType;
Exgridlib_tlb::IItemsPtr var_Items = Grid1->Items;
	var_Items->AddItem(TVariant(10));
	var_Items->AddItem(TVariant(20));
	var_Items->AddItem(TVariant(30));
	long h = var_Items->AddItem(TVariant("sum(all,rec,dbl(%0))"));
	var_Items->set_SelectableItem(h,false);
	var_Items->set_CellValueFormat(TVariant(h),TVariant(0),Exgridlib_tlb::ValueFormatEnum::exTotalField | Exgridlib_tlb::ValueFormatEnum::exHTML);
	var_Items->set_FormatCell(TVariant(h),TVariant(0),L"`sum: ` + value");
	h = TVariant(var_Items->get_SplitCell(TVariant(h),TVariant(0)));
	var_Items->set_CellValue(TVariant(0),TVariant(h),TVariant("min(all,rec,dbl(%0))"));
	var_Items->set_CellValueFormat(TVariant(0),TVariant(h),Exgridlib_tlb::ValueFormatEnum::exTotalField | Exgridlib_tlb::ValueFormatEnum::exHTML);
	var_Items->set_FormatCell(TVariant(0),TVariant(h),L"`min: ` + value");
	h = TVariant(var_Items->get_SplitCell(TVariant(0),TVariant(h)));
	var_Items->set_CellValue(TVariant(0),TVariant(h),TVariant("max(all,rec,dbl(%0))"));
	var_Items->set_CellValueFormat(TVariant(0),TVariant(h),Exgridlib_tlb::ValueFormatEnum::exTotalField | Exgridlib_tlb::ValueFormatEnum::exHTML);
	var_Items->set_FormatCell(TVariant(0),TVariant(h),L"`max: ` + value");
Grid1->EndUpdate();

// Change event - Occurs when the user changes the cell's content.
void __fastcall TForm1::Grid1Change(TObject *Sender,Exgridlib_tlb::HITEM   Item,long   ColIndex,Variant *   NewValue)
{
	Grid1->Refresh();
}

Grid1->BeginUpdate();
Grid1->TreeColumnIndex = -1;
Grid1->FullRowSelect = Exgridlib_tlb::CellSelectEnum::exColumnSel;
Grid1->Columns->Add(L"Numbers")->Editor->EditType = Exgridlib_tlb::EditTypeEnum::SpinType;
Exgridlib_tlb::IColumnPtr var_Column = Grid1->Columns->Add(L"Idx");
	var_Column->FormatColumn = L"0 index ``";
	var_Column->Width = 24;
	var_Column->AllowSizing = false;
	var_Column->Enabled = false;
Exgridlib_tlb::IItemsPtr var_Items = Grid1->Items;
	long h = var_Items->AddItem(TVariant("3 Numbers"));
	var_Items->set_ItemHeight(h,0);
	var_Items->set_SelectableItem(h,false);
	var_Items->InsertItem(h,TNoParam(),TVariant(10));
	var_Items->InsertItem(h,TNoParam(),TVariant(20));
	var_Items->InsertItem(h,TNoParam(),TVariant(30));
	var_Items->set_ExpandItem(h,true);
	h = var_Items->AddItem(TVariant("sum(0,dir,dbl(%0))"));
	var_Items->set_CellValueFormat(TVariant(h),TVariant(0),Exgridlib_tlb::ValueFormatEnum::exTotalField | Exgridlib_tlb::ValueFormatEnum::exHTML);
	var_Items->set_SelectableItem(h,false);
	var_Items->set_FormatCell(TVariant(h),TVariant(0),L"`sum of first three numbers is ` + value");
	h = var_Items->AddItem(TVariant("3 Numbers"));
	var_Items->set_ItemHeight(h,0);
	var_Items->set_SelectableItem(h,false);
	var_Items->InsertItem(h,TNoParam(),TVariant(15));
	var_Items->InsertItem(h,TNoParam(),TVariant(35));
	var_Items->set_ExpandItem(h,true);
	h = var_Items->AddItem(TVariant("count(5,dir,dbl(%0))"));
	var_Items->set_CellValueFormat(TVariant(h),TVariant(0),Exgridlib_tlb::ValueFormatEnum::exTotalField | Exgridlib_tlb::ValueFormatEnum::exHTML);
	var_Items->set_SelectableItem(h,false);
	var_Items->set_FormatCell(TVariant(h),TVariant(0),L"`count of next two numbers is ` + value");
Grid1->EndUpdate();

// Change event - Occurs when the user changes the cell's content.
void __fastcall TForm1::Grid1Change(TObject *Sender,Exgridlib_tlb::HITEM   Item,long   ColIndex,Variant *   NewValue)
{
	Grid1->Refresh();
}

Grid1->BeginUpdate();
Grid1->LinesAtRoot = Exgridlib_tlb::LinesAtRootEnum::exGroupLinesAtRoot;
Grid1->Columns->Add(L"Numbers")->Editor->EditType = Exgridlib_tlb::EditTypeEnum::SpinType;
Exgridlib_tlb::IItemsPtr var_Items = Grid1->Items;
	long h = var_Items->AddItem(TVariant(""));
	var_Items->set_CellValue(TVariant(h),TVariant(0),TVariant("sum(current,dir,dbl(%0))"));
	var_Items->set_CellValueFormat(TVariant(h),TVariant(0),Exgridlib_tlb::ValueFormatEnum::exTotalField | Exgridlib_tlb::ValueFormatEnum::exHTML);
	var_Items->set_FormatCell(TVariant(h),TVariant(0),L"'sum of <fgcolor=FF0000><b>Direct</b> children: '+value + `</fgcolor> using <a>sum(current,dir,dbl(%0))`");
	var_Items->set_ItemForeColor(var_Items->InsertItem(h,TNoParam(),TVariant(10)),RGB(255,0,0));
	var_Items->set_ItemForeColor(var_Items->InsertItem(h,TNoParam(),TVariant(20)),RGB(255,0,0));
	var_Items->set_ItemForeColor(var_Items->InsertItem(h,TNoParam(),TVariant(30)),RGB(255,0,0));
	var_Items->set_ExpandItem(h,true);
Exgridlib_tlb::IItemsPtr var_Items1 = Grid1->Items;
	h = var_Items1->AddItem(TVariant(""));
	var_Items1->set_CellValue(TVariant(h),TVariant(0),TVariant("sum(current,rec,dbl(%0))"));
	var_Items1->set_CellValueFormat(TVariant(h),TVariant(0),Exgridlib_tlb::ValueFormatEnum::exTotalField | Exgridlib_tlb::ValueFormatEnum::exHTML);
	var_Items1->set_FormatCell(TVariant(h),TVariant(0),L"'sum of <fgcolor=00FF00><b>Leaf</b> chidlren: '+value +`</fgcolor> using <a>sum(current,rec,dbl(%0))`");
	var_Items1->set_ItemForeColor(var_Items1->InsertItem(var_Items1->InsertItem(var_Items1->InsertItem(var_Items1->InsertItem(h,TNoParam(),TVariant(100)),TNoParam(),TVariant(10)),TNoParam(),TVariant(10)),TNoParam(),TVariant(1)),RGB(0,255,0));
	var_Items1->set_ItemForeColor(var_Items1->InsertItem(var_Items1->InsertItem(h,TNoParam(),TVariant(200)),TNoParam(),TVariant(2)),RGB(0,255,0));
	var_Items1->set_ItemForeColor(var_Items1->InsertItem(var_Items1->InsertItem(h,TNoParam(),TVariant(300)),TNoParam(),TVariant(3)),RGB(0,255,0));
	long h1 = var_Items1->InsertItem(h,TNoParam(),TVariant("sum(parent,direct,%0)"));
	var_Items1->set_CellValueFormat(TVariant(h1),TVariant(0),Exgridlib_tlb::ValueFormatEnum::exTotalField | Exgridlib_tlb::ValueFormatEnum::exHTML);
	var_Items1->set_FormatCell(TVariant(h1),TVariant(0),L"'sum of <b>Parent Direct</b> children: '+value +`</fgcolor> using <a>sum(parent,direct,%0)`");
	h1 = var_Items1->InsertItem(h,TNoParam(),TVariant("sum(parent,rec,%0)"));
	var_Items1->set_CellValueFormat(TVariant(h1),TVariant(0),Exgridlib_tlb::ValueFormatEnum::exTotalField | Exgridlib_tlb::ValueFormatEnum::exHTML);
	var_Items1->set_FormatCell(TVariant(h1),TVariant(0),L"'sum of <fgcolor=00FF00><b>Parent Leaf</b> children: '+value +`</fgcolor> using <a>sum(parent,rec,%0)`");
	var_Items1->set_ExpandItem(0,true);
Exgridlib_tlb::IItemsPtr var_Items2 = Grid1->Items;
	h = var_Items2->AddItem(TVariant(""));
	var_Items2->set_CellValue(TVariant(h),TVariant(0),TVariant("sum(all,rec,dbl(%0))"));
	var_Items2->set_CellValueFormat(TVariant(h),TVariant(0),Exgridlib_tlb::ValueFormatEnum::exTotalField | Exgridlib_tlb::ValueFormatEnum::exHTML);
	var_Items2->set_FormatCell(TVariant(h),TVariant(0),L"'sum of <fgcolor=FF00FF><b>All (leaf children)</b>: '+value  +`</fgcolor> using <a>sum(all,rec,dbl(%0))`");
Exgridlib_tlb::IItemsPtr var_Items3 = Grid1->Items;
	h = var_Items3->AddItem(TVariant(""));
	var_Items3->set_CellValue(TVariant(h),TVariant(0),TVariant("sum(all,all,dbl(%0))"));
	var_Items3->set_CellValueFormat(TVariant(h),TVariant(0),Exgridlib_tlb::ValueFormatEnum::exTotalField | Exgridlib_tlb::ValueFormatEnum::exHTML);
	var_Items3->set_FormatCell(TVariant(h),TVariant(0),L"'sum of <fgcolor=FF00FF><b>All (children)</b>: '+value  +`</fgcolor> using <a>sum(all,all,dbl(%0))`");
Grid1->EndUpdate();

Grid1->ColumnAutoResize = false;
Grid1->ContinueColumnScroll = false;
/*
	Select the Component\Import Component...\Import a Type Library,
	to import the following Type Library:

		Microsoft ActiveX Data Objects 6.1 Library

	TypeLib: msado15.dll

	to define the namespace: Adodb_tlb
*/
//#include "ADODB_TLB.h"
Adodb_tlb::_RecordsetPtr rs = Variant::CreateObject(L"ADOR.Recordset");
	rs->Open(TVariant("Orders"),TVariant("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\\Program Files\\Exontrol\\ExGrid\\Sample\\Access\\misc.accdb"),Adodb_tlb::CursorTypeEnum::adOpenStatic,Adodb_tlb::LockTypeEnum::adLockOptimistic,0);
Grid1->DataSource = (IDispatch*)rs;
/*
	Select the Component\Import Component...\Import a Type Library,
	to import the following Type Library:

		ExPrint 1.0 Control Library

	TypeLib: ExPrint.dll

	to define the namespace: Exprintlib_tlb
*/
//#include "EXPRINTLIB_TLB.h"
Exprintlib_tlb::IExPrintPtr var_Print = Variant::CreateObject(L"Exontrol.Print");
	var_Print->set_Options(TVariant("FitToPage = On"));
	var_Print->PrintExt = (IUnknown*)Grid1->DefaultDispatch;
	var_Print->Preview();

Grid1->BeginUpdate();
Grid1->MarkSearchColumn = false;
Grid1->SelForeColor = Grid1->ForeColor;
Grid1->SelBackColor = Grid1->BackColor;
Grid1->ShowFocusRect = false;
Exgridlib_tlb::IColumnsPtr var_Columns = Grid1->Columns;
	Exgridlib_tlb::IColumnPtr var_Column = var_Columns->Add(L"Format");
		var_Column->FormatColumn = TVariant(String("type(value) in (0,1) ? 'null' : ( dbl(value)<0 ? '<fgcolor=FF0000>'+ (value format '2|.|3|,|1' ) : (dbl(value)>0 ? '<fgcolor=00") +
"00FF>+'+(value format '2|.|3|,' ): '0.00') )");
		var_Column->set_Def(Exgridlib_tlb::DefColumnEnum::exCellValueFormat,TVariant(1));
Exgridlib_tlb::IItemsPtr var_Items = Grid1->Items;
	var_Items->AddItem(TVariant(10));
	var_Items->AddItem(TVariant(-8));
Grid1->EndUpdate();

Exgridlib_tlb::IColumnsPtr var_Columns = Grid1->Columns;
	var_Columns->Add(L"C1");
	var_Columns->Add(L"C2");
	var_Columns->Add(L"C3");
Exgridlib_tlb::IItemsPtr var_Items = Grid1->Items;
	long h = var_Items->AddItem(TVariant("Item 1"));
	var_Items->set_CellValue(TVariant(h),TVariant(1),TVariant("SubItem 1.1"));
	var_Items->set_CellValue(TVariant(h),TVariant(2),TVariant("SubItem 1.2"));
	OutputDebugString( PChar(var_Items->get_CellValue(TVariant(h),TVariant(2))) );

// SelectionChanged event - Fired after a new item has been selected.
void __fastcall TForm1::Grid1SelectionChanged(TObject *Sender)
{
	Exgridlib_tlb::IItemsPtr var_Items = Grid1->Items;
		var_Items->ClearItemBackColor(0);
		var_Items->set_ItemBackColor(var_Items->get_SelectedItem(0),RGB(128,255,255));
}

Grid1->BeginUpdate();
Grid1->MarkSearchColumn = false;
Grid1->SelForeColor = Grid1->ForeColor;
Grid1->SelBackColor = Grid1->BackColor;
Grid1->ShowFocusRect = false;
Exgridlib_tlb::IColumnsPtr var_Columns = Grid1->Columns;
	Exgridlib_tlb::IColumnPtr var_Column = var_Columns->Add(L"Format");
		var_Column->FormatColumn = TVariant(String("type(value) in (0,1) ? 'null' : ( dbl(value)<0 ? '<fgcolor=FF0000>'+ (value format '2|.|3|,|1' ) : (dbl(value)>0 ? '<fgcolor=00") +
"00FF>+'+(value format '2|.|3|,' ): '0.00') )");
		var_Column->set_Def(Exgridlib_tlb::DefColumnEnum::exCellValueFormat,TVariant(1));
Exgridlib_tlb::IItemsPtr var_Items = Grid1->Items;
	var_Items->AddItem(TVariant(10));
	var_Items->AddItem(TVariant(-8));
Grid1->EndUpdate();

Grid1->BeginUpdate();
/*
	Select the Component\Import Component...\Import a Type Library,
	to import the following Type Library:

		Microsoft ActiveX Data Objects 6.1 Library

	TypeLib: msado15.dll

	to define the namespace: Adodb_tlb
*/
//#include "ADODB_TLB.h"
Adodb_tlb::_RecordsetPtr rs = Variant::CreateObject(L"ADOR.Recordset");
	rs->Open(TVariant("Orders"),TVariant("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\\Program Files\\Exontrol\\ExGrid\\Sample\\Access\\misc.accdb"),Adodb_tlb::CursorTypeEnum::adOpenStatic,Adodb_tlb::LockTypeEnum::adLockOptimistic,0);
Grid1->DataSource = (IDispatch*)rs;
Grid1->SingleSort = false;
Grid1->SortBarVisible = true;
Grid1->Columns->get_Item(TVariant(1))->SortOrder = true;
Grid1->Columns->get_Item(TVariant(2))->SortOrder = true;
OutputDebugString( PChar(Grid1->Columns->SortBarColumnsCount) );
Grid1->EndUpdate();

// AddGroupItem event - Occurs after a new Group Item has been inserted to Items collection.
void __fastcall TForm1::Grid1AddGroupItem(TObject *Sender,Exgridlib_tlb::HITEM   Item)
{
	Exgridlib_tlb::IItemsPtr var_Items = Grid1->Items;
		long h = var_Items->InsertItem(Item,TNoParam(),TVariant(""));
		var_Items->set_SelectableItem(h,false);
		var_Items->set_CellValue(TVariant(h),TVariant(6),TVariant("min(parent,rec,dbl(%6))"));
		var_Items->set_CellValueFormat(TVariant(h),TVariant(6),Exgridlib_tlb::ValueFormatEnum::exTotalField | Exgridlib_tlb::ValueFormatEnum::exHTML);
		var_Items->set_FormatCell(TVariant(h),TVariant(6),L"`<font ;7><b>Min</b>: ` + value");
		var_Items->set_ItemPosition(h,0);
		h = var_Items->InsertItem(Item,TNoParam(),TVariant(""));
		var_Items->set_SelectableItem(h,false);
		var_Items->set_CellValue(TVariant(h),TVariant(6),TVariant("max(parent,rec,dbl(%6))"));
		var_Items->set_CellValueFormat(TVariant(h),TVariant(6),Exgridlib_tlb::ValueFormatEnum::exTotalField | Exgridlib_tlb::ValueFormatEnum::exHTML);
		var_Items->set_FormatCell(TVariant(h),TVariant(6),L"`<font ;7><b>Max</b>: ` + value");
}

Grid1->BeginUpdate();
Grid1->HasLines = Exgridlib_tlb::HierarchyLineEnum::exNoLine;
Grid1->ColumnAutoResize = false;
/*
	Select the Component\Import Component...\Import a Type Library,
	to import the following Type Library:

		Microsoft ActiveX Data Objects 6.1 Library

	TypeLib: msado15.dll

	to define the namespace: Adodb_tlb
*/
//#include "ADODB_TLB.h"
Adodb_tlb::_RecordsetPtr rs = Variant::CreateObject(L"ADOR.Recordset");
	rs->Open(TVariant("Orders"),TVariant("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\\Program Files\\Exontrol\\ExGrid\\Sample\\Access\\misc.accdb"),Adodb_tlb::CursorTypeEnum::adOpenStatic,Adodb_tlb::LockTypeEnum::adLockOptimistic,0);
Grid1->DataSource = (IDispatch*)rs;
Grid1->SingleSort = false;
Grid1->SortBarVisible = true;
Grid1->AllowGroupBy = true;
Grid1->Columns->get_Item(TVariant(1))->SortOrder = true;
Grid1->EndUpdate();

// AddGroupItem event - Occurs after a new Group Item has been inserted to Items collection.
void __fastcall TForm1::Grid1AddGroupItem(TObject *Sender,Exgridlib_tlb::HITEM   Item)
{
	Exgridlib_tlb::IItemsPtr var_Items = Grid1->Items;
		long h = var_Items->InsertItem(Item,TNoParam(),TVariant(""));
		var_Items->set_SelectableItem(h,false);
		var_Items->set_CellValue(TVariant(h),TVariant(6),TVariant("sum(parent,rec,dbl(%6))"));
		var_Items->set_CellValueFormat(TVariant(h),TVariant(6),Exgridlib_tlb::ValueFormatEnum::exTotalField | Exgridlib_tlb::ValueFormatEnum::exHTML);
		var_Items->set_FormatCell(TVariant(h),TVariant(6),L"`<font ;7><b>Sum</b>: ` + value");
}

Grid1->BeginUpdate();
Grid1->HasLines = Exgridlib_tlb::HierarchyLineEnum::exNoLine;
Grid1->ColumnAutoResize = false;
/*
	Select the Component\Import Component...\Import a Type Library,
	to import the following Type Library:

		Microsoft ActiveX Data Objects 6.1 Library

	TypeLib: msado15.dll

	to define the namespace: Adodb_tlb
*/
//#include "ADODB_TLB.h"
Adodb_tlb::_RecordsetPtr rs = Variant::CreateObject(L"ADOR.Recordset");
	rs->Open(TVariant("Orders"),TVariant("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\\Program Files\\Exontrol\\ExGrid\\Sample\\Access\\misc.accdb"),Adodb_tlb::CursorTypeEnum::adOpenStatic,Adodb_tlb::LockTypeEnum::adLockOptimistic,0);
Grid1->DataSource = (IDispatch*)rs;
Grid1->SingleSort = false;
Grid1->SortBarVisible = true;
Grid1->AllowGroupBy = true;
Grid1->Columns->get_Item(TVariant(1))->SortOrder = true;
Grid1->EndUpdate();

// ItemOleEvent event - Fired when an ActiveX control hosted by an item has fired an event.
void __fastcall TForm1::Grid1ItemOleEvent(TObject *Sender,Exgridlib_tlb::HITEM   Item,Exgridlib_tlb::IOleEvent   *Ev)
{
	OutputDebugString( L"Ev" );
}

Grid1->LinesAtRoot = Exgridlib_tlb::LinesAtRootEnum::exLinesAtRoot;
Grid1->ScrollBySingleLine = true;
Grid1->Columns->Add(L"Default");
Exgridlib_tlb::IItemsPtr var_Items = Grid1->Items;
	long h = var_Items->AddItem(TVariant("Root"));
	var_Items->set_ExpandItem(h,true);
	h = var_Items->InsertControlItem(h,L"Exontrol.Grid",TNoParam());
	var_Items->set_ItemHeight(h,256);
	Exgridlib_tlb::IGridPtr var_Grid = var_Items->get_ItemObject(h);
		var_Grid->LinesAtRoot = Exgridlib_tlb::LinesAtRootEnum::exLinesAtRoot;
		var_Grid->ScrollBySingleLine = true;
		var_Grid->Columns->Add(L"C1");
		var_Grid->Columns->Add(L"C2");
		Exgridlib_tlb::IItemsPtr var_Items1 = var_Grid->Items;
			var_Items1->set_CellValue(TVariant(var_Items1->AddItem(TVariant(1))),TVariant(1),TVariant(2));
		h = var_Grid->Items->AddItem(TVariant(3));
		var_Grid->Items->set_CellValue(TVariant(h),TVariant(1),TVariant(4));
		Exgridlib_tlb::IItemsPtr var_Items2 = var_Grid->Items;
			var_Items2->set_ExpandItem(h,true);
			h = var_Items2->InsertControlItem(h,L"Exontrol.Grid",TNoParam());
			Exgridlib_tlb::IGridPtr var_Grid1 = var_Items2->get_ItemObject(h);
				var_Grid1->LinesAtRoot = Exgridlib_tlb::LinesAtRootEnum::exLinesAtRoot;
				var_Grid1->Columns->Add(L"Inside-Inside");
				Exgridlib_tlb::IItemsPtr var_Items3 = var_Grid1->Items;
					h = var_Items3->AddItem(TVariant("item"));
					var_Items3->InsertItem(h,TNoParam(),TVariant("child 1"));
					var_Items3->InsertItem(h,TNoParam(),TVariant("child 2"));
					var_Items3->InsertItem(h,TNoParam(),TVariant("child 3"));

Grid1->Columns->Add(L"Default");
Exgridlib_tlb::IItemsPtr var_Items = Grid1->Items;
	var_Items->AddItem(TVariant("Child 3"));
	var_Items->AddItem(TVariant("Child 2"));
	var_Items->AddItem(TVariant("Child 1"));
	var_Items->set_ItemPosition(var_Items->get_ItemByIndex(0),2);
	var_Items->set_ItemPosition(var_Items->get_ItemByIndex(1),1);
	var_Items->set_ItemPosition(var_Items->get_ItemByIndex(2),0);

Grid1->Columns->Add(L"Default");
Exgridlib_tlb::IItemsPtr var_Items = Grid1->Items;
	long h3 = var_Items->AddItem(TVariant("Child 3"));
	long h2 = var_Items->AddItem(TVariant("Child 2"));
	long h1 = var_Items->AddItem(TVariant("Child 1"));
	var_Items->set_ItemPosition(h3,2);
	var_Items->set_ItemPosition(h2,1);
	var_Items->set_ItemPosition(h1,0);

Grid1->LinesAtRoot = Exgridlib_tlb::LinesAtRootEnum::exLinesAtRoot;
Grid1->ScrollBySingleLine = true;
Grid1->Columns->Add(L"Default");
Exgridlib_tlb::IItemsPtr var_Items = Grid1->Items;
	long h = var_Items->AddItem(TVariant("Root"));
	var_Items->set_ExpandItem(h,true);
	h = var_Items->InsertControlItem(h,L"Exontrol.Grid",TNoParam());
	var_Items->set_ItemHeight(h,256);
	Exgridlib_tlb::IGridPtr var_Grid = var_Items->get_ItemObject(h);
		var_Grid->LinesAtRoot = Exgridlib_tlb::LinesAtRootEnum::exLinesAtRoot;
		var_Grid->ScrollBySingleLine = true;
		var_Grid->Columns->Add(L"C1");
		var_Grid->Columns->Add(L"C2");
		Exgridlib_tlb::IItemsPtr var_Items1 = var_Grid->Items;
			var_Items1->set_CellValue(TVariant(var_Items1->AddItem(TVariant(1))),TVariant(1),TVariant(2));
		h = var_Grid->Items->AddItem(TVariant(3));
		var_Grid->Items->set_CellValue(TVariant(h),TVariant(1),TVariant(4));
		Exgridlib_tlb::IItemsPtr var_Items2 = var_Grid->Items;
			var_Items2->set_ExpandItem(h,true);
			h = var_Items2->InsertControlItem(h,L"Exontrol.Grid",TNoParam());
			Exgridlib_tlb::IGridPtr var_Grid1 = var_Items2->get_ItemObject(h);
				var_Grid1->Columns->Add(L"Inside-Inside");
				var_Grid1->Items->AddItem(TVariant("item"));

Exgridlib_tlb::IColumnsPtr var_Columns = Grid1->Columns;
	var_Columns->Add(L"A");
	var_Columns->Add(L"B");
	var_Columns->Add(L"Sum")->ComputedField = L"dbl(%0) + dbl(%1)";
	var_Columns->Add(L"Concaternation")->ComputedField = L"str(%0) + str(%1)";
Exgridlib_tlb::IItemsPtr var_Items = Grid1->Items;
	var_Items->set_CellValue(TVariant(var_Items->AddItem(TVariant(1))),TVariant(1),TVariant(2));
	var_Items->set_CellValue(TVariant(var_Items->AddItem(TVariant(21))),TVariant(1),TVariant(22));

Exgridlib_tlb::IColumnsPtr var_Columns = Grid1->Columns;
	var_Columns->Add(L"A")->Editor->EditType = Exgridlib_tlb::EditTypeEnum::SpinType;
	var_Columns->Add(L"B")->FormatColumn = L"currency(%0)";
	var_Columns->Add(L"C")->FormatColumn = L"%1 format ''";
Exgridlib_tlb::IItemsPtr var_Items = Grid1->Items;
	var_Items->AddItem(TVariant(1));
	var_Items->AddItem(TVariant(2));
	var_Items->AddItem(TVariant(3));

// Click event - Occurs when the user presses and then releases the left mouse button over the grid control.
void __fastcall TForm1::Grid1Click(TObject *Sender)
{
	Grid1->Ungroup();
}

Grid1->BeginUpdate();
Grid1->ColumnAutoResize = false;
/*
	Select the Component\Import Component...\Import a Type Library,
	to import the following Type Library:

		Microsoft ActiveX Data Objects 6.1 Library

	TypeLib: msado15.dll

	to define the namespace: Adodb_tlb
*/
//#include "ADODB_TLB.h"
Adodb_tlb::_RecordsetPtr rs = Variant::CreateObject(L"ADOR.Recordset");
	rs->Open(TVariant("Orders"),TVariant("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\\Program Files\\Exontrol\\ExGrid\\Sample\\Access\\misc.accdb"),Adodb_tlb::CursorTypeEnum::adOpenStatic,Adodb_tlb::LockTypeEnum::adLockOptimistic,0);
Grid1->DataSource = (IDispatch*)rs;
Grid1->SortBarHeight = 24;
Grid1->HeaderHeight = 24;
Grid1->SortBarVisible = true;
Grid1->SortBarCaption = L"Drag a <b>column</b> header here to group by that column.";
Grid1->AllowGroupBy = true;
Grid1->ReadOnly = Exgridlib_tlb::ReadOnlyEnum::exReadOnly;
Exgridlib_tlb::IColumnPtr var_Column = Grid1->Columns->get_Item(TVariant(1));
	var_Column->Alignment = Exgridlib_tlb::AlignmentEnum::CenterAlignment;
	var_Column->set_Def(Exgridlib_tlb::DefColumnEnum::exCellBackColor,TVariant(15790320));
	var_Column->SortOrder = true;
Grid1->EndUpdate();

Grid1->BeginUpdate();
Grid1->ColumnAutoResize = false;
/*
	Select the Component\Import Component...\Import a Type Library,
	to import the following Type Library:

		Microsoft ActiveX Data Objects 6.1 Library

	TypeLib: msado15.dll

	to define the namespace: Adodb_tlb
*/
//#include "ADODB_TLB.h"
Adodb_tlb::_RecordsetPtr rs = Variant::CreateObject(L"ADOR.Recordset");
	rs->Open(TVariant("Orders"),TVariant("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\\Program Files\\Exontrol\\ExGrid\\Sample\\Access\\misc.accdb"),Adodb_tlb::CursorTypeEnum::adOpenStatic,Adodb_tlb::LockTypeEnum::adLockOptimistic,0);
Grid1->DataSource = (IDispatch*)rs;
Grid1->SortBarHeight = 24;
Grid1->HeaderHeight = 24;
Grid1->BackColorSortBar = RGB(240,240,240);
Grid1->BackColorSortBarCaption = Grid1->BackColor;
Grid1->VisualAppearance->Add(1,TVariant(String("gBFLBCJwBAEHhEJAEGg4BdsIQAAYAQGKIYBkAKBQAGaAoDDgNw0QwAAxjMK0EwsACEIrjKCRShyCYZRhGcTSBCIZBqEqSZLiEZRQiiCYsS5GQBSFDcOwHGyQYDkCQpA") +
"AWL4tCyMc7QHKAWhrEAbJjgQYJUh+TQAAZCIJRXRQAL/K6rKwnSCQIgkUBpGKdBynEYoYxAfyESCJWyIahWAwoQjUMB1HLQAAxC5kKbkIxyBABFBdVjVeBYG78Bz+ABj" +
"EovbAMEwPBqAMwmIAZDheA4FR4AGhTXKcbxrFaXZSzKckPRoADSZq1Sg5LjDJI2ABqU6ABqNLZtJKsZS4apABrWeZ3Q7QMLdFTwA4PH6EZhxXAYbTVeaPZjQIBAgI"));
Grid1->SortBarVisible = true;
Grid1->SortBarCaption = L"Drag a <b>column</b> header here to group by that column.";
Grid1->AllowGroupBy = true;
Exgridlib_tlb::IColumnPtr var_Column = Grid1->Columns->get_Item(TVariant(1));
	var_Column->Alignment = Exgridlib_tlb::AlignmentEnum::CenterAlignment;
	var_Column->set_Def(Exgridlib_tlb::DefColumnEnum::exCellBackColor,TVariant(15790320));
	var_Column->SortOrder = true;
Exgridlib_tlb::IColumnPtr var_Column1 = Grid1->Columns->get_Item(TVariant(5));
	var_Column1->Alignment = Exgridlib_tlb::AlignmentEnum::CenterAlignment;
	var_Column1->set_Def(Exgridlib_tlb::DefColumnEnum::exCellBackColor,TVariant(16119285));
	var_Column1->SortOrder = true;
Grid1->Background[Exgridlib_tlb::BackgroundPartEnum::exSortBarLinkColor] = 0x1000000;
Grid1->EndUpdate();

Grid1->BeginUpdate();
Grid1->ColumnAutoResize = false;
/*
	Select the Component\Import Component...\Import a Type Library,
	to import the following Type Library:

		Microsoft ActiveX Data Objects 6.1 Library

	TypeLib: msado15.dll

	to define the namespace: Adodb_tlb
*/
//#include "ADODB_TLB.h"
Adodb_tlb::_RecordsetPtr rs = Variant::CreateObject(L"ADOR.Recordset");
	rs->Open(TVariant("Orders"),TVariant("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\\Program Files\\Exontrol\\ExGrid\\Sample\\Access\\misc.accdb"),Adodb_tlb::CursorTypeEnum::adOpenStatic,Adodb_tlb::LockTypeEnum::adLockOptimistic,0);
Grid1->DataSource = (IDispatch*)rs;
Grid1->SortBarVisible = true;
Grid1->SortBarCaption = L"Drag a <b>column</b> header here to group by that column.";
Grid1->AllowGroupBy = true;
Exgridlib_tlb::IColumnPtr var_Column = Grid1->Columns->get_Item(TVariant(1));
	var_Column->Alignment = Exgridlib_tlb::AlignmentEnum::CenterAlignment;
	var_Column->set_Def(Exgridlib_tlb::DefColumnEnum::exCellBackColor,TVariant(15790320));
Grid1->EndUpdate();

Grid1->BeginUpdate();
Grid1->LinesAtRoot = Exgridlib_tlb::LinesAtRootEnum::exGroupLinesOutside;
Grid1->ColumnAutoResize = false;
/*
	Select the Component\Import Component...\Import a Type Library,
	to import the following Type Library:

		Microsoft ActiveX Data Objects 6.1 Library

	TypeLib: msado15.dll

	to define the namespace: Adodb_tlb
*/
//#include "ADODB_TLB.h"
Adodb_tlb::_RecordsetPtr rs = Variant::CreateObject(L"ADOR.Recordset");
	rs->Open(TVariant("Orders"),TVariant("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\\Program Files\\Exontrol\\ExGrid\\Sample\\Access\\misc.accdb"),Adodb_tlb::CursorTypeEnum::adOpenStatic,Adodb_tlb::LockTypeEnum::adLockOptimistic,0);
Grid1->DataSource = (IDispatch*)rs;
Grid1->SortBarVisible = true;
Grid1->SortBarCaption = L"Drag a <b>column</b> header here to group by that column.";
Grid1->AllowGroupBy = true;
Grid1->Columns->get_Item(TVariant(6))->AllowGroupBy = false;
Exgridlib_tlb::IColumnPtr var_Column = Grid1->Columns->get_Item(TVariant(1));
	var_Column->GroupByTotalField = L"";
	var_Column->GroupByFormatCell = L"";
Grid1->EndUpdate();

// AddItem event - Occurs after a new Item has been inserted to Items collection.
void __fastcall TForm1::Grid1AddItem(TObject *Sender,Exgridlib_tlb::HITEM   Item)
{
	Grid1->Items->set_ItemDividerLineAlignment(Item,Exgridlib_tlb::DividerAlignmentEnum::DividerBoth);
}

// Change event - Occurs when the user changes the cell's content.
void __fastcall TForm1::Grid1Change(TObject *Sender,Exgridlib_tlb::HITEM   Item,long   ColIndex,Variant *   NewValue)
{
	Grid1->Refresh();
}

Grid1->BeginUpdate();
Grid1->ScrollBySingleLine = true;
Grid1->LinesAtRoot = Exgridlib_tlb::LinesAtRootEnum::exGroupLinesOutside;
Grid1->ColumnAutoResize = false;
/*
	Select the Component\Import Component...\Import a Type Library,
	to import the following Type Library:

		Microsoft ActiveX Data Objects 6.1 Library

	TypeLib: msado15.dll

	to define the namespace: Adodb_tlb
*/
//#include "ADODB_TLB.h"
Adodb_tlb::_RecordsetPtr rs = Variant::CreateObject(L"ADOR.Recordset");
	rs->Open(TVariant("Orders"),TVariant("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\\Program Files\\Exontrol\\ExGrid\\Sample\\Access\\misc.accdb"),Adodb_tlb::CursorTypeEnum::adOpenStatic,Adodb_tlb::LockTypeEnum::adLockOptimistic,0);
Grid1->DataSource = (IDispatch*)rs;
Grid1->SortBarVisible = true;
Grid1->SortBarCaption = L"Drag a <b>column</b> header here to group by that column.";
Grid1->AllowGroupBy = true;
Grid1->Columns->get_Item(TVariant(6))->AllowGroupBy = false;
Exgridlib_tlb::IColumnPtr var_Column = Grid1->Columns->get_Item(TVariant(1));
	var_Column->GroupByTotalField = L"sum(current,rec,%6)";
	var_Column->GroupByFormatCell = L"'<font ;11>' + <caption> + '</font> <fgcolor=808080>( Freight: ' + currency(value) + ')'";
Grid1->DefaultItemHeight = 28;
Grid1->EndUpdate();

// AddItem event - Occurs after a new Item has been inserted to Items collection.
void __fastcall TForm1::Grid1AddItem(TObject *Sender,Exgridlib_tlb::HITEM   Item)
{
	Exgridlib_tlb::IItemsPtr var_Items = Grid1->Items;
		var_Items->set_ItemDividerLine(Item,Exgridlib_tlb::DividerLineEnum::EmptyLine);
		long l = var_Items->get_GroupItem(Item);
		var_Items->set_CellSingleLine(TVariant(Item),TVariant(l),Exgridlib_tlb::CellSingleLineEnum::exCaptionWordWrap);
		var_Items->set_CellBold(TVariant(Item),TVariant(l),true);
		var_Items->set_CellBackColor(TVariant(Item),TVariant(l),0x1000000);
}

Grid1->BeginUpdate();
Grid1->ScrollBySingleLine = true;
Grid1->LinesAtRoot = Exgridlib_tlb::LinesAtRootEnum::exNoLinesAtRoot;
Grid1->TreeColumnIndex = -1;
Grid1->ColumnAutoResize = false;
/*
	Select the Component\Import Component...\Import a Type Library,
	to import the following Type Library:

		Microsoft ActiveX Data Objects 6.1 Library

	TypeLib: msado15.dll

	to define the namespace: Adodb_tlb
*/
//#include "ADODB_TLB.h"
Adodb_tlb::_RecordsetPtr rs = Variant::CreateObject(L"ADOR.Recordset");
	rs->Open(TVariant("Orders"),TVariant("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\\Program Files\\Exontrol\\ExGrid\\Sample\\Access\\misc.accdb"),Adodb_tlb::CursorTypeEnum::adOpenStatic,Adodb_tlb::LockTypeEnum::adLockOptimistic,0);
Grid1->VisualAppearance->Add(1,TVariant(String("gBFLBCJwBAEHhEJAEGg4BKoCg6AADACAxRDAMgBQKAAzQFAYcBuGiGAAGMZhWgmFgAQhFcZQSKUOQTDKMIziaQIRDEMw5SSNIxyAK0QBkAqNQCkKKwIgmNYDSBMYABB") +
"IMBwiGQaRJnegYRDUMJCQjRVITVLMNoXDKZIyqEAHfpWVJWSLHcIhDBJUjcOYyTiOQrzCK8dB0G6bIrGEZpYRAPwEYDIIjbQhqFYDChCNLwHScEAxC4kLhnKK6Vb9d6H" +
"YhiOJYXhmDrfR7IMhyLI8QafFqXZhmOZZXizPY9T7QNB0LQ8eZbJqnahqOpaOx2W5dV7YNh2LTWGzXNq3bhuOzLbrme59X7gOB3RZeE4XRrHchxKq8XxnG6dZ7oOTUXo" +
"fFOK5WmudQTh2LpfHOO5em+doSh4LwfhOS5mnGIw9D6LxfjOW5unSIQ+D8L4flOa5yD2fg/D+L5fnOe54ByigGAKAJgEgBBrgGYIICYCoCmCSAcGOA5hAgRgSgSYQBGo" +
"FoFmGCBmBqBphGESgegeYgIgYIoHkSKIWCaCZigiJgqgqYhog4LoLmGSJGDKBZhEiVg2gMY4ImYCIBGOSJ1n6D5kAeZZ2hCZBHj4RoRl6J4eEqEpeAkNhOHaXYJEYUh0" +
"GUSRVkwchlgkZZChaZZGnWOoXmYBpOGKGJamaLhmhmWhJiYahnlmSY2G4ZZZEmRhyGMZxJlWCBhFCFgWHaHpYkmSh+GSJp6AWG4amgRoOGeIZahmEoKGyJgKDWOIXGkB" +
"wGFmJJcHkWoWHQJQqGWVoTmmRx+EuJ5eFkIoiHuJBKhWdIQGqB52D2KpgDiaougMIxqyODJrEgbgvi2YgYjKOoumKSpij4FIrFsBg0iyLBKj6RoOmqSwmimMpkCqGpOi" +
"ibQJCaII0mmWxWFCJotgoXpahWaRLHaEY3mWag6mKIpuEmFoIjmaBbiYbIgi6RhaH+O5Onmcpyh2VYAAEASAg"));
Grid1->DrawGridLines = Exgridlib_tlb::GridLinesEnum::exHLines;
Grid1->DataSource = (IDispatch*)rs;
Grid1->SortBarVisible = true;
Grid1->SortBarCaption = L"Drag a <b>column</b> header here to group by that column.";
Grid1->AllowGroupBy = true;
Exgridlib_tlb::IColumnPtr var_Column = Grid1->Columns->get_Item(TVariant(1));
	var_Column->GroupByFormatCell = L"'EmployeeID: ' + <caption> + '<br><font ;7><fgcolor=808080>Count: ' + value";
Grid1->EndUpdate();

// AddItem event - Occurs after a new Item has been inserted to Items collection.
void __fastcall TForm1::Grid1AddItem(TObject *Sender,Exgridlib_tlb::HITEM   Item)
{
	Grid1->Items->set_ItemDividerLine(Item,Exgridlib_tlb::DividerLineEnum::EmptyLine);
}

Grid1->BeginUpdate();
Grid1->ColumnAutoResize = false;
/*
	Select the Component\Import Component...\Import a Type Library,
	to import the following Type Library:

		Microsoft ActiveX Data Objects 6.1 Library

	TypeLib: msado15.dll

	to define the namespace: Adodb_tlb
*/
//#include "ADODB_TLB.h"
Adodb_tlb::_RecordsetPtr rs = Variant::CreateObject(L"ADOR.Recordset");
	rs->Open(TVariant("Orders"),TVariant("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\\Program Files\\Exontrol\\ExGrid\\Sample\\Access\\misc.accdb"),Adodb_tlb::CursorTypeEnum::adOpenStatic,Adodb_tlb::LockTypeEnum::adLockOptimistic,0);
Grid1->DataSource = (IDispatch*)rs;
Grid1->SortBarVisible = true;
Grid1->SortBarCaption = L"Drag a <b>column</b> header here to group by that column.";
Grid1->AllowGroupBy = true;
Grid1->EndUpdate();

// MouseMove event - Occurs when the user moves the mouse.
void __fastcall TForm1::Grid1MouseMove(TObject *Sender,short   Button,short   Shift,int   X,int   Y)
{
	long h = Grid1->ItemFromPoint[-1,-1,c,hit];
	OutputDebugString( PChar(Grid1->Items->get_GroupItem(h)) );
}

Grid1->BeginUpdate();
Grid1->ColumnAutoResize = false;
/*
	Select the Component\Import Component...\Import a Type Library,
	to import the following Type Library:

		Microsoft ActiveX Data Objects 6.1 Library

	TypeLib: msado15.dll

	to define the namespace: Adodb_tlb
*/
//#include "ADODB_TLB.h"
Adodb_tlb::_RecordsetPtr rs = Variant::CreateObject(L"ADOR.Recordset");
	rs->Open(TVariant("Orders"),TVariant("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\\Program Files\\Exontrol\\ExGrid\\Sample\\Access\\misc.accdb"),Adodb_tlb::CursorTypeEnum::adOpenStatic,Adodb_tlb::LockTypeEnum::adLockOptimistic,0);
Grid1->DataSource = (IDispatch*)rs;
Grid1->SortBarVisible = true;
Grid1->SortBarCaption = L"Drag a <b>column</b> header here to group by that column.";
Grid1->AllowGroupBy = true;
Grid1->EndUpdate();

// AddGroupItem event - Occurs after a new Group Item has been inserted to Items collection.
void __fastcall TForm1::Grid1AddGroupItem(TObject *Sender,Exgridlib_tlb::HITEM   Item)
{
	Grid1->Items->set_ExpandItem(Item,false);
}

Grid1->BeginUpdate();
Grid1->ColumnAutoResize = false;
/*
	Select the Component\Import Component...\Import a Type Library,
	to import the following Type Library:

		Microsoft ActiveX Data Objects 6.1 Library

	TypeLib: msado15.dll

	to define the namespace: Adodb_tlb
*/
//#include "ADODB_TLB.h"
Adodb_tlb::_RecordsetPtr rs = Variant::CreateObject(L"ADOR.Recordset");
	rs->Open(TVariant("Orders"),TVariant("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\\Program Files\\Exontrol\\ExGrid\\Sample\\Access\\misc.accdb"),Adodb_tlb::CursorTypeEnum::adOpenStatic,Adodb_tlb::LockTypeEnum::adLockOptimistic,0);
Grid1->DataSource = (IDispatch*)rs;
Grid1->SortBarVisible = true;
Grid1->SortBarCaption = L"Drag a <b>column</b> header here to group by that column.";
Grid1->AllowGroupBy = true;
Grid1->EndUpdate();

Grid1->BeginUpdate();
Grid1->ColumnAutoResize = false;
/*
	Select the Component\Import Component...\Import a Type Library,
	to import the following Type Library:

		Microsoft ActiveX Data Objects 6.1 Library

	TypeLib: msado15.dll

	to define the namespace: Adodb_tlb
*/
//#include "ADODB_TLB.h"
Adodb_tlb::_RecordsetPtr rs = Variant::CreateObject(L"ADOR.Recordset");
	rs->Open(TVariant("Orders"),TVariant("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\\Program Files\\Exontrol\\ExGrid\\Sample\\Access\\misc.accdb"),Adodb_tlb::CursorTypeEnum::adOpenStatic,Adodb_tlb::LockTypeEnum::adLockOptimistic,0);
Grid1->DataSource = (IDispatch*)rs;
Grid1->SortBarVisible = true;
Grid1->SortBarCaption = L"<fgcolor=FF0000>Try to drag the EmployeeID column here.";
Grid1->AllowGroupBy = true;
Grid1->Columns->get_Item(TVariant(1))->AllowGroupBy = false;
Grid1->EndUpdate();

Grid1->BeginUpdate();
Grid1->ColumnAutoResize = false;
/*
	Select the Component\Import Component...\Import a Type Library,
	to import the following Type Library:

		Microsoft ActiveX Data Objects 6.1 Library

	TypeLib: msado15.dll

	to define the namespace: Adodb_tlb
*/
//#include "ADODB_TLB.h"
Adodb_tlb::_RecordsetPtr rs = Variant::CreateObject(L"ADOR.Recordset");
	rs->Open(TVariant("Orders"),TVariant("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\\Program Files\\Exontrol\\ExGrid\\Sample\\Access\\misc.accdb"),Adodb_tlb::CursorTypeEnum::adOpenStatic,Adodb_tlb::LockTypeEnum::adLockOptimistic,0);
Grid1->DataSource = (IDispatch*)rs;
Grid1->SingleSort = false;
Grid1->AllowGroupBy = true;
Grid1->Columns->get_Item(TVariant(1))->SortOrder = true;
Grid1->EndUpdate();

Grid1->BeginUpdate();
Grid1->ColumnAutoResize = false;
/*
	Select the Component\Import Component...\Import a Type Library,
	to import the following Type Library:

		Microsoft ActiveX Data Objects 6.1 Library

	TypeLib: msado15.dll

	to define the namespace: Adodb_tlb
*/
//#include "ADODB_TLB.h"
Adodb_tlb::_RecordsetPtr rs = Variant::CreateObject(L"ADOR.Recordset");
	rs->Open(TVariant("Orders"),TVariant("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\\Program Files\\Exontrol\\ExGrid\\Sample\\Access\\misc.accdb"),Adodb_tlb::CursorTypeEnum::adOpenStatic,Adodb_tlb::LockTypeEnum::adLockOptimistic,0);
Grid1->DataSource = (IDispatch*)rs;
Grid1->SortBarVisible = true;
Grid1->SortBarCaption = L"Drag a <b>column</b> header here to group by that column.";
Grid1->AllowGroupBy = true;
Grid1->EndUpdate();

Exgridlib_tlb::IEditorPtr var_Editor = Grid1->Columns->Add(L"Numbers")->Editor;
	var_Editor->EditType = Exgridlib_tlb::EditTypeEnum::EditType;
	var_Editor->Numeric = Exgridlib_tlb::NumericEnum::exFloat;
Grid1->Items->AddItem(TVariant(12));

Exgridlib_tlb::IEditorPtr var_Editor = Grid1->Columns->Add(L"Numbers")->Editor;
	var_Editor->EditType = Exgridlib_tlb::EditTypeEnum::EditType;
	var_Editor->Numeric = Exgridlib_tlb::NumericEnum::exInteger;
Grid1->Items->AddItem(TVariant(12));

Exgridlib_tlb::IEditorPtr var_Editor = Grid1->Columns->Add(L"Numbers")->Editor;
	var_Editor->EditType = Exgridlib_tlb::EditTypeEnum::MaskType;
	var_Editor->Mask = L"###.###";
Grid1->Items->AddItem(TVariant(12));

Grid1->BeginUpdate();
Grid1->LinesAtRoot = Exgridlib_tlb::LinesAtRootEnum::exLinesAtRoot;
Exgridlib_tlb::IColumnPtr var_Column = Grid1->Columns->Add(L"Items");
	var_Column->DisplayFilterButton = true;
	var_Column->DisplayFilterPattern = false;
	var_Column->FilterList = Exgridlib_tlb::FilterListEnum::exShowFocusItem | Exgridlib_tlb::FilterListEnum::exShowCheckBox | Exgridlib_tlb::FilterListEnum::exSortItemsAsc | Exgridlib_tlb::FilterListEnum::exLeafItems;
Exgridlib_tlb::IItemsPtr var_Items = Grid1->Items;
	long h = var_Items->AddItem(TVariant("Root 1"));
	var_Items->InsertItem(h,TNoParam(),TVariant("Child 1"));
	var_Items->InsertItem(h,TNoParam(),TVariant("Child 2"));
	var_Items->set_ExpandItem(h,true);
	h = var_Items->AddItem(TVariant("Root 2"));
	var_Items->InsertItem(h,TNoParam(),TVariant("Child 1"));
	var_Items->InsertItem(h,TNoParam(),TVariant("Child 2"));
	var_Items->InsertItem(h,TNoParam(),TVariant("Child 3"));
	var_Items->set_ExpandItem(h,true);
Grid1->EndUpdate();

Grid1->BeginUpdate();
Grid1->LinesAtRoot = Exgridlib_tlb::LinesAtRootEnum::exLinesAtRoot;
Exgridlib_tlb::IColumnPtr var_Column = Grid1->Columns->Add(L"Item");
	var_Column->DisplayFilterButton = true;
	var_Column->DisplayFilterPattern = false;
	var_Column->Filter = L"Child 1";
	var_Column->FilterType = Exgridlib_tlb::FilterTypeEnum::exFilter;
Exgridlib_tlb::IColumnPtr var_Column1 = Grid1->Columns->Add(L"Date");
	var_Column1->DisplayFilterButton = true;
	var_Column1->DisplayFilterPattern = false;
	var_Column1->DisplayFilterDate = true;
	var_Column1->FilterList = Exgridlib_tlb::FilterListEnum::exShowExclude | Exgridlib_tlb::FilterListEnum::exShowFocusItem | Exgridlib_tlb::FilterListEnum::exShowCheckBox | Exgridlib_tlb::FilterListEnum::exNoItems;
	var_Column1->Filter = L"TDateTime(2010,12,28).operator double()";
	var_Column1->FilterType = Exgridlib_tlb::FilterTypeEnum::exDate;
Grid1->FilterCriteria = L"%0 or %1";
Grid1->Description[Exgridlib_tlb::DescriptionTypeEnum::exFilterBarOr] = L"<font ;18><fgcolor=FF0000>or</fgcolor></font>";
Grid1->Description[Exgridlib_tlb::DescriptionTypeEnum::exFilterBarAnd] = L"<font ;18><fgcolor=FF0000>and</fgcolor></font>";
Exgridlib_tlb::IItemsPtr var_Items = Grid1->Items;
	long h = var_Items->AddItem(TVariant("Root 1"));
	var_Items->set_CellValue(TVariant(var_Items->InsertItem(h,TNoParam(),TVariant("Child 1"))),TVariant(1),TVariant(TDateTime(2010,12,27).operator double()));
	var_Items->set_CellValue(TVariant(var_Items->InsertItem(h,TNoParam(),TVariant("Child 2"))),TVariant(1),TVariant(TDateTime(2010,12,28).operator double()));
	var_Items->set_ExpandItem(h,true);
	h = var_Items->AddItem(TVariant("Root 2"));
	var_Items->set_CellValue(TVariant(var_Items->InsertItem(h,TNoParam(),TVariant("Child 1"))),TVariant(1),TVariant(TDateTime(2010,12,29).operator double()));
	var_Items->set_CellValue(TVariant(var_Items->InsertItem(h,TNoParam(),TVariant("Child 2"))),TVariant(1),TVariant(TDateTime(2010,12,30).operator double()));
Grid1->ApplyFilter();
Grid1->EndUpdate();

Grid1->BeginUpdate();
Exgridlib_tlb::IColumnPtr var_Column = Grid1->Columns->Add(L"Date");
	var_Column->SortType = Exgridlib_tlb::SortTypeEnum::SortDate;
	var_Column->DisplayFilterButton = true;
	var_Column->DisplayFilterPattern = false;
	var_Column->DisplayFilterDate = true;
	var_Column->FilterList = Exgridlib_tlb::FilterListEnum::exShowExclude | Exgridlib_tlb::FilterListEnum::exShowFocusItem | Exgridlib_tlb::FilterListEnum::exShowCheckBox | Exgridlib_tlb::FilterListEnum::exNoItems;
Exgridlib_tlb::IItemsPtr var_Items = Grid1->Items;
	var_Items->AddItem(TVariant(TDateTime(2010,12,27).operator double()));
	var_Items->AddItem(TVariant(TDateTime(2010,12,28).operator double()));
	var_Items->AddItem(TVariant(TDateTime(2010,12,29).operator double()));
	var_Items->AddItem(TVariant(TDateTime(2010,12,30).operator double()));
	var_Items->AddItem(TVariant(TDateTime(2010,12,31).operator double()));
Grid1->EndUpdate();

Grid1->BeginUpdate();
Exgridlib_tlb::IColumnPtr var_Column = Grid1->Columns->Add(L"Date");
	var_Column->SortType = Exgridlib_tlb::SortTypeEnum::SortDate;
	var_Column->DisplayFilterButton = true;
	var_Column->DisplayFilterPattern = false;
	var_Column->DisplayFilterDate = true;
	var_Column->FilterList = Exgridlib_tlb::FilterListEnum::exShowFocusItem | Exgridlib_tlb::FilterListEnum::exShowCheckBox | Exgridlib_tlb::FilterListEnum::exNoItems;
Exgridlib_tlb::IItemsPtr var_Items = Grid1->Items;
	var_Items->AddItem(TVariant(TDateTime(2010,12,27).operator double()));
	var_Items->AddItem(TVariant(TDateTime(2010,12,28).operator double()));
	var_Items->AddItem(TVariant(TDateTime(2010,12,29).operator double()));
	var_Items->AddItem(TVariant(TDateTime(2010,12,30).operator double()));
	var_Items->AddItem(TVariant(TDateTime(2010,12,31).operator double()));
Grid1->EndUpdate();

Grid1->BeginUpdate();
Exgridlib_tlb::IColumnPtr var_Column = Grid1->Columns->Add(L"Dates");
	var_Column->SortType = Exgridlib_tlb::SortTypeEnum::SortDate;
	var_Column->DisplayFilterButton = true;
	var_Column->DisplayFilterPattern = true;
	var_Column->DisplayFilterDate = true;
	var_Column->FilterList = Exgridlib_tlb::FilterListEnum::exShowFocusItem | Exgridlib_tlb::FilterListEnum::exShowCheckBox;
	var_Column->Filter = L"to 12/27/2010";
	var_Column->FilterType = Exgridlib_tlb::FilterTypeEnum::exDate;
Exgridlib_tlb::IItemsPtr var_Items = Grid1->Items;
	var_Items->AddItem(TVariant(TDateTime(2010,12,27).operator double()));
	var_Items->AddItem(TVariant(TDateTime(2010,12,28).operator double()));
	var_Items->AddItem(TVariant(TDateTime(2010,12,29).operator double()));
	var_Items->AddItem(TVariant(TDateTime(2010,12,30).operator double()));
	var_Items->AddItem(TVariant(TDateTime(2010,12,31).operator double()));
Grid1->ApplyFilter();
Grid1->EndUpdate();

Grid1->BeginUpdate();
Exgridlib_tlb::IColumnPtr var_Column = Grid1->Columns->Add(L"Dates");
	var_Column->SortType = Exgridlib_tlb::SortTypeEnum::SortDate;
	var_Column->DisplayFilterButton = true;
	var_Column->DisplayFilterPattern = true;
	var_Column->DisplayFilterDate = true;
	var_Column->FilterList = Exgridlib_tlb::FilterListEnum::exShowFocusItem | Exgridlib_tlb::FilterListEnum::exNoItems;
	var_Column->Filter = L"to 12/27/2010";
	var_Column->FilterType = Exgridlib_tlb::FilterTypeEnum::exDate;
Exgridlib_tlb::IItemsPtr var_Items = Grid1->Items;
	var_Items->AddItem(TVariant(TDateTime(2010,12,27).operator double()));
	var_Items->AddItem(TVariant(TDateTime(2010,12,28).operator double()));
	var_Items->AddItem(TVariant(TDateTime(2010,12,29).operator double()));
	var_Items->AddItem(TVariant(TDateTime(2010,12,30).operator double()));
	var_Items->AddItem(TVariant(TDateTime(2010,12,31).operator double()));
Grid1->ApplyFilter();
Grid1->EndUpdate();

Grid1->BeginUpdate();
Exgridlib_tlb::IColumnPtr var_Column = Grid1->Columns->Add(L"Dates");
	var_Column->SortType = Exgridlib_tlb::SortTypeEnum::SortDate;
	var_Column->DisplayFilterButton = true;
	var_Column->DisplayFilterPattern = true;
	var_Column->DisplayFilterDate = true;
	var_Column->FilterList = Exgridlib_tlb::FilterListEnum::exShowFocusItem | Exgridlib_tlb::FilterListEnum::exNoItems;
Exgridlib_tlb::IItemsPtr var_Items = Grid1->Items;
	var_Items->AddItem(TVariant(TDateTime(2010,12,27).operator double()));
	var_Items->AddItem(TVariant(TDateTime(2010,12,28).operator double()));
	var_Items->AddItem(TVariant(TDateTime(2010,12,29).operator double()));
	var_Items->AddItem(TVariant(TDateTime(2010,12,30).operator double()));
	var_Items->AddItem(TVariant(TDateTime(2010,12,31).operator double()));
Grid1->EndUpdate();

Grid1->BeginUpdate();
Grid1->LinesAtRoot = Exgridlib_tlb::LinesAtRootEnum::exLinesAtRoot;
Grid1->Description[Exgridlib_tlb::DescriptionTypeEnum::exFilterBarExclude] = L"Leaving out";
Exgridlib_tlb::IColumnPtr var_Column = Grid1->Columns->Add(L"Items");
	var_Column->DisplayFilterButton = true;
	var_Column->DisplayFilterPattern = false;
	var_Column->FilterList = Exgridlib_tlb::FilterListEnum::exShowExclude | Exgridlib_tlb::FilterListEnum::exShowFocusItem | Exgridlib_tlb::FilterListEnum::exShowCheckBox;
Exgridlib_tlb::IItemsPtr var_Items = Grid1->Items;
	long h = var_Items->AddItem(TVariant("Root 1"));
	var_Items->InsertItem(h,TNoParam(),TVariant("Child 1"));
	var_Items->InsertItem(h,TNoParam(),TVariant("Child 2"));
	var_Items->set_ExpandItem(h,true);
	h = var_Items->AddItem(TVariant("Root 2"));
	var_Items->InsertItem(h,TNoParam(),TVariant("Child 1"));
Grid1->EndUpdate();

Grid1->BeginUpdate();
Grid1->LinesAtRoot = Exgridlib_tlb::LinesAtRootEnum::exLinesAtRoot;
Exgridlib_tlb::IColumnPtr var_Column = Grid1->Columns->Add(L"Items");
	var_Column->DisplayFilterButton = true;
	var_Column->DisplayFilterPattern = false;
	var_Column->FilterList = Exgridlib_tlb::FilterListEnum::exShowExclude | Exgridlib_tlb::FilterListEnum::exShowFocusItem | Exgridlib_tlb::FilterListEnum::exShowCheckBox;
Exgridlib_tlb::IItemsPtr var_Items = Grid1->Items;
	long h = var_Items->AddItem(TVariant("Root 1"));
	var_Items->InsertItem(h,TNoParam(),TVariant("Child 1"));
	var_Items->InsertItem(h,TNoParam(),TVariant("Child 2"));
	var_Items->set_ExpandItem(h,true);
	h = var_Items->AddItem(TVariant("Root 2"));
	var_Items->InsertItem(h,TNoParam(),TVariant("Child 1"));
Grid1->EndUpdate();

Grid1->BeginUpdate();
Grid1->LinesAtRoot = Exgridlib_tlb::LinesAtRootEnum::exLinesAtRoot;
Exgridlib_tlb::IColumnPtr var_Column = Grid1->Columns->Add(L"Items");
	var_Column->DisplayFilterButton = true;
	var_Column->DisplayFilterPattern = false;
	var_Column->FilterList = Exgridlib_tlb::FilterListEnum::exShowFocusItem | Exgridlib_tlb::FilterListEnum::exShowCheckBox;
Exgridlib_tlb::IItemsPtr var_Items = Grid1->Items;
	long h = var_Items->AddItem(TVariant("Root 1"));
	var_Items->InsertItem(h,TNoParam(),TVariant("Child 1"));
	var_Items->InsertItem(h,TNoParam(),TVariant("Child 2"));
	var_Items->set_ExpandItem(h,true);
	h = var_Items->AddItem(TVariant("Root 2"));
	var_Items->InsertItem(h,TNoParam(),TVariant("Child 1"));
	var_Items->set_SelectItem(var_Items->InsertItem(h,TNoParam(),TVariant("Child 2")),true);
	var_Items->set_ExpandItem(h,true);
Grid1->EndUpdate();

Grid1->BeginUpdate();
Grid1->LinesAtRoot = Exgridlib_tlb::LinesAtRootEnum::exLinesAtRoot;
Exgridlib_tlb::IColumnPtr var_Column = Grid1->Columns->Add(L"Items");
	var_Column->DisplayFilterButton = true;
	var_Column->DisplayFilterPattern = false;
	var_Column->FilterList = Exgridlib_tlb::FilterListEnum::exShowBlanks | Exgridlib_tlb::FilterListEnum::exNoItems;
Exgridlib_tlb::IItemsPtr var_Items = Grid1->Items;
	long h = var_Items->AddItem(TVariant("Root 1"));
	var_Items->InsertItem(h,TNoParam(),TVariant("Child 1"));
	var_Items->InsertItem(h,TNoParam(),TVariant("Child 2"));
	var_Items->set_ExpandItem(h,true);
	h = var_Items->AddItem(TVariant("Root 2"));
	var_Items->InsertItem(h,TNoParam(),TVariant("Child 1"));
	var_Items->InsertItem(h,TNoParam(),TVariant("Child 2"));
Grid1->EndUpdate();

Grid1->BeginUpdate();
Grid1->LinesAtRoot = Exgridlib_tlb::LinesAtRootEnum::exLinesAtRoot;
Exgridlib_tlb::IColumnPtr var_Column = Grid1->Columns->Add(L"Items");
	var_Column->DisplayFilterButton = true;
	var_Column->DisplayFilterPattern = false;
	var_Column->FilterList = Exgridlib_tlb::FilterListEnum::exShowBlanks | Exgridlib_tlb::FilterListEnum::exShowCheckBox;
Exgridlib_tlb::IItemsPtr var_Items = Grid1->Items;
	long h = var_Items->AddItem(TVariant("Root 1"));
	var_Items->InsertItem(h,TNoParam(),TVariant("Child 1"));
	var_Items->InsertItem(h,TNoParam(),TVariant("Child 2"));
	var_Items->set_ExpandItem(h,true);
	h = var_Items->AddItem(TVariant("Root 2"));
	var_Items->InsertItem(h,TNoParam(),TVariant("Child 1"));
	var_Items->InsertItem(h,TNoParam(),TVariant("Child 2"));
Grid1->EndUpdate();

Grid1->BeginUpdate();
Grid1->LinesAtRoot = Exgridlib_tlb::LinesAtRootEnum::exLinesAtRoot;
Exgridlib_tlb::IColumnPtr var_Column = Grid1->Columns->Add(L"Items");
	var_Column->DisplayFilterButton = true;
	var_Column->DisplayFilterPattern = false;
	var_Column->FilterList = Exgridlib_tlb::FilterListEnum::exShowCheckBox;
Exgridlib_tlb::IItemsPtr var_Items = Grid1->Items;
	long h = var_Items->AddItem(TVariant("Root 1"));
	var_Items->InsertItem(h,TNoParam(),TVariant("Child 1"));
	var_Items->InsertItem(h,TNoParam(),TVariant("Child 2"));
	var_Items->set_ExpandItem(h,true);
	h = var_Items->AddItem(TVariant("Root 2"));
	var_Items->InsertItem(h,TNoParam(),TVariant("Child 1"));
	var_Items->InsertItem(h,TNoParam(),TVariant("Child 2"));
Grid1->EndUpdate();

Grid1->BeginUpdate();
Grid1->LinesAtRoot = Exgridlib_tlb::LinesAtRootEnum::exLinesAtRoot;
Exgridlib_tlb::IColumnPtr var_Column = Grid1->Columns->Add(L"Items");
	var_Column->DisplayFilterButton = true;
	var_Column->DisplayFilterPattern = false;
	var_Column->FilterList = Exgridlib_tlb::FilterListEnum::exSingleSel;
Exgridlib_tlb::IItemsPtr var_Items = Grid1->Items;
	long h = var_Items->AddItem(TVariant("Root 1"));
	var_Items->InsertItem(h,TNoParam(),TVariant("Child 1"));
	var_Items->InsertItem(h,TNoParam(),TVariant("Child 2"));
	var_Items->set_ExpandItem(h,true);
	h = var_Items->AddItem(TVariant("Root 2"));
	var_Items->InsertItem(h,TNoParam(),TVariant("Child 1"));
	var_Items->InsertItem(h,TNoParam(),TVariant("Child 2"));
Grid1->EndUpdate();

Grid1->BeginUpdate();
Grid1->LinesAtRoot = Exgridlib_tlb::LinesAtRootEnum::exLinesAtRoot;
Grid1->Description[Exgridlib_tlb::DescriptionTypeEnum::exFilterBarAll] = L"";
Exgridlib_tlb::IColumnPtr var_Column = Grid1->Columns->Add(L"Items");
	var_Column->DisplayFilterButton = true;
	var_Column->DisplayFilterPattern = true;
	var_Column->FilterList = Exgridlib_tlb::FilterListEnum::exNoItems;
Exgridlib_tlb::IItemsPtr var_Items = Grid1->Items;
	long h = var_Items->AddItem(TVariant("Root 1"));
	var_Items->InsertItem(h,TNoParam(),TVariant("Child 1"));
	var_Items->InsertItem(h,TNoParam(),TVariant("Child 2"));
	var_Items->set_ExpandItem(h,true);
	h = var_Items->AddItem(TVariant("Root 2"));
	var_Items->InsertItem(h,TNoParam(),TVariant("Child 1"));
	var_Items->InsertItem(h,TNoParam(),TVariant("Child 2"));
Grid1->EndUpdate();

Grid1->BeginUpdate();
Grid1->LinesAtRoot = Exgridlib_tlb::LinesAtRootEnum::exLinesAtRoot;
Exgridlib_tlb::IColumnPtr var_Column = Grid1->Columns->Add(L"Items");
	var_Column->DisplayFilterButton = true;
	var_Column->DisplayFilterPattern = true;
	var_Column->FilterList = Exgridlib_tlb::FilterListEnum::exNoItems;
Exgridlib_tlb::IItemsPtr var_Items = Grid1->Items;
	long h = var_Items->AddItem(TVariant("Root 1"));
	var_Items->InsertItem(h,TNoParam(),TVariant("Child 1"));
	var_Items->InsertItem(h,TNoParam(),TVariant("Child 2"));
	var_Items->set_ExpandItem(h,true);
	h = var_Items->AddItem(TVariant("Root 2"));
	var_Items->InsertItem(h,TNoParam(),TVariant("Child 1"));
	var_Items->InsertItem(h,TNoParam(),TVariant("Child 2"));
Grid1->EndUpdate();

Grid1->LinesAtRoot = Exgridlib_tlb::LinesAtRootEnum::exGroupLinesOutside;
Grid1->Indent = 12;
Grid1->HasLines = Exgridlib_tlb::HierarchyLineEnum::exThinLine;
Grid1->Columns->Add(L"Default");
Exgridlib_tlb::IItemsPtr var_Items = Grid1->Items;
	long h = var_Items->AddItem(TVariant("Root 1"));
	var_Items->InsertItem(h,TNoParam(),TVariant("Child 1"));
	var_Items->InsertItem(h,TNoParam(),TVariant("Child 2"));
	var_Items->InsertItem(h,TNoParam(),TVariant("Child 3"));
	var_Items->set_ExpandItem(h,true);
	h = var_Items->AddItem(TVariant("Root 2"));
	var_Items->InsertItem(h,TNoParam(),TVariant("Child 1"));
	var_Items->InsertItem(h,TNoParam(),TVariant("Child 2"));
	var_Items->InsertItem(h,TNoParam(),TVariant("Child 3"));

Grid1->LinesAtRoot = Exgridlib_tlb::LinesAtRootEnum::exGroupLinesAtRoot;
Grid1->Indent = 12;
Grid1->Columns->Add(L"Default");
Exgridlib_tlb::IItemsPtr var_Items = Grid1->Items;
	long h = var_Items->AddItem(TVariant("Root"));
	var_Items->InsertItem(h,TNoParam(),TVariant("Child 1"));
	var_Items->InsertItem(h,TNoParam(),TVariant("Child 2"));
	var_Items->InsertItem(h,TNoParam(),TVariant("Child 3"));
	var_Items->set_ExpandItem(h,true);

Grid1->LinesAtRoot = Exgridlib_tlb::LinesAtRootEnum::exGroupLinesOutside;
Grid1->Indent = 12;
Grid1->Columns->Add(L"Default");
Exgridlib_tlb::IItemsPtr var_Items = Grid1->Items;
	long h = var_Items->AddItem(TVariant("Root 1"));
	var_Items->InsertItem(h,TNoParam(),TVariant("Child 1"));
	var_Items->InsertItem(h,TNoParam(),TVariant("Child 2"));
	var_Items->InsertItem(h,TNoParam(),TVariant("Child 3"));
	var_Items->set_ExpandItem(h,true);
	h = var_Items->AddItem(TVariant("Root 2"));
	var_Items->InsertItem(h,TNoParam(),TVariant("Child 1"));
	var_Items->InsertItem(h,TNoParam(),TVariant("Child 2"));
	var_Items->InsertItem(h,TNoParam(),TVariant("Child 3"));

Grid1->LinesAtRoot = Exgridlib_tlb::LinesAtRootEnum::exGroupLinesInsideLeaf;
Grid1->Indent = 12;
Grid1->Columns->Add(L"Default");
Exgridlib_tlb::IItemsPtr var_Items = Grid1->Items;
	long h = var_Items->AddItem(TVariant("Root"));
	var_Items->InsertItem(h,TNoParam(),TVariant("Child 1"));
	var_Items->InsertItem(h,TNoParam(),TVariant("Child 2"));
	var_Items->InsertItem(h,TNoParam(),TVariant("Child 3"));
	var_Items->set_ExpandItem(h,true);

Grid1->LinesAtRoot = Exgridlib_tlb::LinesAtRootEnum::exGroupLinesInside;
Grid1->Indent = 12;
Grid1->Columns->Add(L"Default");
Exgridlib_tlb::IItemsPtr var_Items = Grid1->Items;
	long h = var_Items->AddItem(TVariant("Root"));
	var_Items->InsertItem(h,TNoParam(),TVariant("Child 1"));
	var_Items->InsertItem(h,TNoParam(),TVariant("Child 2"));
	var_Items->InsertItem(h,TNoParam(),TVariant("Child 3"));
	var_Items->set_ExpandItem(h,true);

Grid1->LinesAtRoot = Exgridlib_tlb::LinesAtRootEnum::exGroupLines;
Grid1->Indent = 12;
Grid1->Columns->Add(L"Default");
Exgridlib_tlb::IItemsPtr var_Items = Grid1->Items;
	long h = var_Items->AddItem(TVariant("Root"));
	var_Items->InsertItem(h,TNoParam(),TVariant("Child 1"));
	var_Items->InsertItem(var_Items->InsertItem(h,TNoParam(),TVariant("Child 2")),TNoParam(),TVariant("SubChild 2"));
	var_Items->InsertItem(h,TNoParam(),TVariant("Child 3"));
	var_Items->set_ExpandItem(h,true);

Grid1->BeginUpdate();
Grid1->DrawGridLines = Exgridlib_tlb::GridLinesEnum::exRowLines;
Grid1->DefaultItemHeight = 36;
Grid1->FullRowSelect = Exgridlib_tlb::CellSelectEnum::exColumnSel;
Exgridlib_tlb::IColumnsPtr var_Columns = Grid1->Columns;
	Exgridlib_tlb::IColumnPtr var_Column = var_Columns->Add(L"Column1");
		var_Column->Visible = false;
		var_Column->Editor->EditType = Exgridlib_tlb::EditTypeEnum::EditType;
	Exgridlib_tlb::IColumnPtr var_Column1 = var_Columns->Add(L"Column2");
		var_Column1->Visible = false;
		var_Column1->Editor->EditType = Exgridlib_tlb::EditTypeEnum::EditType;
	Exgridlib_tlb::IColumnPtr var_Column2 = var_Columns->Add(L"Column3");
		var_Column2->Alignment = Exgridlib_tlb::AlignmentEnum::CenterAlignment;
		var_Column2->HeaderAlignment = Exgridlib_tlb::AlignmentEnum::CenterAlignment;
		var_Column2->Visible = false;
		var_Column2->set_Def(Exgridlib_tlb::DefColumnEnum::exCellHasButton,TVariant(true));
		var_Column2->set_Def(Exgridlib_tlb::DefColumnEnum::exCellButtonAutoWidth,TVariant(true));
	Exgridlib_tlb::IColumnPtr var_Column3 = var_Columns->Add(L"FormatLevel");
		var_Column3->FormatLevel = L"(0/1),2:64";
		var_Column3->set_Def(Exgridlib_tlb::DefColumnEnum::exCellFormatLevel,TVariant(var_Column3->FormatLevel));
Exgridlib_tlb::IItemsPtr var_Items = Grid1->Items;
	long h = var_Items->AddItem(TVariant("Cell 1.1"));
	var_Items->set_CellValue(TVariant(h),TVariant(1),TVariant("Cell 1.2"));
	var_Items->set_CellValue(TVariant(h),TVariant(2),TVariant("Cell 1.3"));
	h = var_Items->AddItem(TVariant("Cell 2.1"));
	var_Items->set_CellValue(TVariant(h),TVariant(1),TVariant("Cell 2.2"));
	var_Items->set_CellValue(TVariant(h),TVariant(2),TVariant("Cell 2.3"));
Grid1->EndUpdate();

Grid1->LinesAtRoot = Exgridlib_tlb::LinesAtRootEnum::exLinesAtRoot;
Exgridlib_tlb::IColumnPtr var_Column = Grid1->Columns->Add(L"Default");
	var_Column->set_Def(Exgridlib_tlb::DefColumnEnum::exCellHasCheckBox,TVariant(true));
	var_Column->PartialCheck = true;
Exgridlib_tlb::IItemsPtr var_Items = Grid1->Items;
	long h = var_Items->AddItem(TVariant("Root"));
	var_Items->InsertItem(h,TNoParam(),TVariant("Child 1"));
	var_Items->InsertItem(h,TNoParam(),TVariant("Child 2"));
	var_Items->set_ExpandItem(h,true);
Exgridlib_tlb::IAppearancePtr var_Appearance = Grid1->VisualAppearance;
	var_Appearance->Add(1,TVariant("XP:Button 3 12"));
	var_Appearance->Add(2,TVariant("XP:Button 3 11"));
	var_Appearance->Add(3,TVariant("XP:Button 3 10"));
Grid1->CheckImage[Exgridlib_tlb::CheckStateEnum::Unchecked] = 16777216;
Grid1->CheckImage[Exgridlib_tlb::CheckStateEnum::Checked] = 33554432;
Grid1->CheckImage[Exgridlib_tlb::CheckStateEnum::PartialChecked] = 50331648;

Exgridlib_tlb::IEditorPtr var_Editor = Grid1->Columns->Add(L"Edit")->Editor;
	var_Editor->EditType = Exgridlib_tlb::EditTypeEnum::EditType;
	var_Editor->set_Option(Exgridlib_tlb::EditorOptionEnum::exEditAllowContextMenu,TVariant(false));
Exgridlib_tlb::IItemsPtr var_Items = Grid1->Items;
	var_Items->AddItem(TVariant(10));
	var_Items->AddItem(TVariant(20));

Exgridlib_tlb::IEditorPtr var_Editor = Grid1->Columns->Add(L"DropDownList")->Editor;
	var_Editor->EditType = Exgridlib_tlb::EditTypeEnum::DropDownListType;
	var_Editor->AddItem(1,L"DDList 1",TNoParam());
	var_Editor->AddItem(2,L"DDList 2",TNoParam());
	var_Editor->AddItem(3,L"DDList 3",TNoParam());
Exgridlib_tlb::IEditorPtr var_Editor1 = Grid1->Columns->Add(L"DropDown")->Editor;
	var_Editor1->EditType = Exgridlib_tlb::EditTypeEnum::DropDownType;
	var_Editor1->AddItem(1,L"DDType 1",TNoParam());
	var_Editor1->AddItem(2,L"DDType 2",TNoParam());
	var_Editor1->AddItem(3,L"DDType 3",TNoParam());
Exgridlib_tlb::IItemsPtr var_Items = Grid1->Items;
	var_Items->set_CellValue(TVariant(->AddItem(TVariant(1))),TVariant(1),TVariant(Grid1->Columns->get_Item(TVariant(1))->Editor->get_FindItem(TVariant(1))));
	var_Items->set_CellValue(TVariant(->AddItem(TVariant(2))),TVariant(1),TVariant(Grid1->Columns->get_Item(TVariant(1))->Editor->get_FindItem(TVariant(2))));

Exgridlib_tlb::IEditorPtr var_Editor = Grid1->Columns->Add(L"DropDownList")->Editor;
	var_Editor->EditType = Exgridlib_tlb::EditTypeEnum::DropDownListType;
	var_Editor->AddItem(1,L"First item",TNoParam());
	var_Editor->AddItem(2,L"Second item",TNoParam());
	var_Editor->AddItem(3,L"Third item",TNoParam());
Exgridlib_tlb::IEditorPtr var_Editor1 = Grid1->Columns->Add(L"DropDown")->Editor;
	var_Editor1->EditType = Exgridlib_tlb::EditTypeEnum::DropDownType;
	var_Editor1->AddItem(1,L"First item",TNoParam());
	var_Editor1->AddItem(2,L"Second item",TNoParam());
	var_Editor1->AddItem(3,L"Third item",TNoParam());
Exgridlib_tlb::IItemsPtr var_Items = Grid1->Items;
	var_Items->set_CellValue(TVariant(var_Items->AddItem(TVariant(1))),TVariant(1),TVariant("Any"));
	var_Items->set_CellValue(TVariant(var_Items->AddItem(TVariant(2))),TVariant(1),TVariant("Any"));

Grid1->BeginUpdate();
Grid1->Columns->Add(L"Padding-Left")->set_Def(Exgridlib_tlb::DefColumnEnum::exHeaderPaddingLeft,TVariant(18));
Exgridlib_tlb::IColumnPtr var_Column = Grid1->Columns->Add(L"Padding-Right");
	var_Column->set_Def(Exgridlib_tlb::DefColumnEnum::exHeaderPaddingRight,TVariant(18));
	var_Column->HeaderAlignment = Exgridlib_tlb::AlignmentEnum::RightAlignment;
Grid1->EndUpdate();

Grid1->BeginUpdate();
Grid1->DrawGridLines = Exgridlib_tlb::GridLinesEnum::exRowLines;
Exgridlib_tlb::IColumnPtr var_Column = Grid1->Columns->Add(L"Padding-Left");
	var_Column->set_Def(Exgridlib_tlb::DefColumnEnum::exCellHasCheckBox,TVariant(true));
	var_Column->set_Def(Exgridlib_tlb::DefColumnEnum::exCellPaddingLeft,TVariant(18));
Grid1->Columns->Add(L"No-Padding")->set_Def(Exgridlib_tlb::DefColumnEnum::exCellHasCheckBox,TVariant(true));
Grid1->Columns->Add(L"Empty")->Position = 0;
Exgridlib_tlb::IItemsPtr var_Items = Grid1->Items;
	var_Items->set_CellValue(TVariant(var_Items->AddItem(TVariant("Item A.1"))),TVariant(1),TVariant("Item A.2"));
	var_Items->set_CellValue(TVariant(var_Items->AddItem(TVariant("Item B.1"))),TVariant(1),TVariant("Item B.2"));
	var_Items->set_CellValue(TVariant(var_Items->AddItem(TVariant("Item C.1"))),TVariant(1),TVariant("Item C.2"));
Grid1->EndUpdate();

Grid1->BeginUpdate();
Grid1->LinesAtRoot = Exgridlib_tlb::LinesAtRootEnum::exLinesAtRoot;
Grid1->Columns->Add(L"Items");
Exgridlib_tlb::IItemsPtr var_Items = Grid1->Items;
	long h = var_Items->AddItem(TVariant("Root 1"));
	var_Items->InsertItem(h,TNoParam(),TVariant("Child 1"));
	var_Items->InsertItem(h,TNoParam(),TVariant("Child 2"));
	h = var_Items->AddItem(TVariant("Root 2"));
	var_Items->InsertItem(h,TNoParam(),TVariant("Child 1"));
	var_Items->InsertItem(h,TNoParam(),TVariant("Child 2"));
	var_Items->set_ExpandItem(0,true);
Grid1->EndUpdate();
Grid1->DefaultItemHeight = 12;
Grid1->Items->set_ItemHeight(0,12);

// Change event - Occurs when the user changes the cell's content.
void __fastcall TForm1::Grid1Change(TObject *Sender,Exgridlib_tlb::HITEM   Item,long   ColIndex,Variant *   NewValue)
{
	OutputDebugString( L"Locked:" );
	OutputDebugString( PChar(Grid1->Items->get_IsItemLocked(Item)) );
	Exgridlib_tlb::IColumnPtr var_Column = Grid1->Columns->get_Item(TVariant(ColIndex));
		var_Column->Filter = L"NewValue";
		var_Column->FilterType = Exgridlib_tlb::FilterTypeEnum::exPattern;
	Grid1->ApplyFilter();
}

// MouseUp event - Occurs when the user releases a mouse button.
void __fastcall TForm1::Grid1MouseUp(TObject *Sender,short   Button,short   Shift,int   X,int   Y)
{
	Grid1->Edit(Grid1->Items->get_LockedItem(Exgridlib_tlb::VAlignmentEnum::exTop,0));
}

Grid1->ColumnAutoResize = false;
Grid1->ScrollBySingleLine = true;
Grid1->ContinueColumnScroll = false;
/*
	Select the Component\Import Component...\Import a Type Library,
	to import the following Type Library:

		Microsoft ActiveX Data Objects 6.1 Library

	TypeLib: msado15.dll

	to define the namespace: Adodb_tlb
*/
//#include "ADODB_TLB.h"
Adodb_tlb::_RecordsetPtr rs = Variant::CreateObject(L"ADOR.Recordset");
	rs->Open(TVariant("Orders"),TVariant("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\\Program Files\\Exontrol\\ExGrid\\Sample\\Access\\misc.accdb"),Adodb_tlb::CursorTypeEnum::adOpenStatic,Adodb_tlb::LockTypeEnum::adLockOptimistic,0);
Grid1->DataSource = (IDispatch*)rs;
Exgridlib_tlb::IItemsPtr var_Items = Grid1->Items;
	var_Items->set_LockedItemCount(Exgridlib_tlb::VAlignmentEnum::exTop,2);
	long h = var_Items->get_LockedItem(Exgridlib_tlb::VAlignmentEnum::exTop,0);
	var_Items->get_CellEditor(TVariant(h),TVariant(0))->EditType = Exgridlib_tlb::EditTypeEnum::EditType;
	h = var_Items->get_LockedItem(Exgridlib_tlb::VAlignmentEnum::exTop,1);
	var_Items->set_ItemHeight(h,4);
	var_Items->set_ItemDivider(h,0);
	var_Items->set_SelectableItem(h,false);

// Event event - Notifies the application once the control fires an event.
void __fastcall TForm1::Grid1Event(TObject *Sender,long   EventID)
{
	OutputDebugString( PChar(Grid1->EventParam[-2]) );
}

Grid1->BeginUpdate();
Grid1->DrawGridLines = Exgridlib_tlb::GridLinesEnum::exRowLines;
Grid1->DefaultItemHeight = 36;
Exgridlib_tlb::IColumnsPtr var_Columns = Grid1->Columns;
	Exgridlib_tlb::IColumnPtr var_Column = var_Columns->Add(L"Column1");
		var_Column->Visible = false;
		var_Column->Editor->EditType = Exgridlib_tlb::EditTypeEnum::EditType;
	Exgridlib_tlb::IColumnPtr var_Column1 = var_Columns->Add(L"Column2");
		var_Column1->Visible = false;
		var_Column1->Editor->EditType = Exgridlib_tlb::EditTypeEnum::EditType;
	var_Columns->Add(L"Column3")->Visible = false;
	Exgridlib_tlb::IColumnPtr var_Column2 = var_Columns->Add(L"FormatLevel");
		var_Column2->FormatLevel = L"(0/1),2";
		var_Column2->set_Def(Exgridlib_tlb::DefColumnEnum::exCellFormatLevel,TVariant(var_Column2->FormatLevel));
Exgridlib_tlb::IItemsPtr var_Items = Grid1->Items;
	long h = var_Items->AddItem(TVariant("Cell 1.1"));
	var_Items->set_CellValue(TVariant(h),TVariant(1),TVariant("Cell 1.2"));
	var_Items->set_CellValue(TVariant(h),TVariant(2),TVariant("Cell 1.3"));
	h = var_Items->AddItem(TVariant("Cell 2.1"));
	var_Items->set_CellValue(TVariant(h),TVariant(1),TVariant("Cell 2.2"));
	var_Items->set_CellValue(TVariant(h),TVariant(2),TVariant("Cell 2.3"));
Grid1->EndUpdate();

Grid1->BeginUpdate();
Grid1->ColumnAutoResize = false;
Grid1->ContinueColumnScroll = false;
/*
	Select the Component\Import Component...\Import a Type Library,
	to import the following Type Library:

		Microsoft ActiveX Data Objects 6.1 Library

	TypeLib: msado15.dll

	to define the namespace: Adodb_tlb
*/
//#include "ADODB_TLB.h"
Adodb_tlb::_RecordsetPtr rs = Variant::CreateObject(L"ADOR.Recordset");
	rs->Open(TVariant("Orders"),TVariant("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\\Program Files\\Exontrol\\ExGrid\\Sample\\Access\\misc.accdb"),Adodb_tlb::CursorTypeEnum::adOpenStatic,Adodb_tlb::LockTypeEnum::adLockOptimistic,0);
Grid1->DataSource = (IDispatch*)rs;
Grid1->AutoDrag = Exgridlib_tlb::AutoDragEnum::exAutoDragScroll;
Grid1->EndUpdate();

Grid1->BeginUpdate();
Grid1->VisualAppearance->Add(1,TVariant("c:\\exontrol\\images\\normal.ebn"));
Grid1->HTMLPicture[L"p1"] = TVariant("c:\\exontrol\\images\\card.png");
Grid1->HTMLPicture[L"p2"] = TVariant("c:\\exontrol\\images\\sun.png");
Grid1->AutoDrag = Exgridlib_tlb::AutoDragEnum::exAutoDragCopySnapShot;
Grid1->LinesAtRoot = Exgridlib_tlb::LinesAtRootEnum::exNoLinesAtRoot;
Grid1->HasLines = Exgridlib_tlb::HierarchyLineEnum::exThinLine;
Grid1->ShowFocusRect = false;
Grid1->DefaultItemHeight = 26;
Grid1->Columns->Add(L"Task");
Exgridlib_tlb::IItemsPtr var_Items = Grid1->Items;
	long h = var_Items->AddItem(TVariant("<img>p1:32</img>Group 1"));
	var_Items->set_CellValueFormat(TVariant(h),TVariant(0),Exgridlib_tlb::ValueFormatEnum::exHTML);
	var_Items->set_ItemDivider(h,0);
	var_Items->set_ItemBold(h,true);
	long h1 = var_Items->InsertItem(h,TNoParam(),TVariant("Task 1"));
	long h2 = var_Items->InsertItem(h,TNoParam(),TVariant("Task 2"));
	long h3 = var_Items->InsertItem(h,TNoParam(),TVariant("Task 3"));
	h = var_Items->AddItem(TVariant("<img>p2:32</img>Group 2"));
	var_Items->set_CellValueFormat(TVariant(h),TVariant(0),Exgridlib_tlb::ValueFormatEnum::exHTML);
	var_Items->set_ItemBold(h,true);
	var_Items->set_ItemDivider(h,0);
	h1 = var_Items->InsertItem(h,TNoParam(),TVariant("Task"));
	var_Items->set_ExpandItem(0,true);
Grid1->EndUpdate();

Grid1->BeginUpdate();
Grid1->HTMLPicture[L"p1"] = TVariant(String("gCJKBOI4NBQaBQAhQNJJIIhShQAIERFQIA0RAYGLriiIEM5BJpBiIARYlMBNhQPLhJIhBKhoQLlTTLV4la5VYx/fZVOoee7de62drYdI4YIWcIteIQEbEEAzCghEwIR") +
"IZKSmJD8EIZMzARgZKYmEAmDISYgEAISIJKdg4JzSOK7bp9b73HiqezeNYxLD7Th7N67dpmQSQIZJUpzVRqT46PY9Xy1yL2Qz/c6HXbzHoAKYgWrzC7tZDtLgBOpzOaj" +
"QApWDXZwOdABb6eHa+fCHMTCB7AMo7S6AIxMcADcAIfHEe6AQ7/G7zfhfHqeAb/AJ8B6TfITMAVGLrd4Db78aY/fydH77axfPjjS5fP7tcLMY6EOYed4dbyHcwHCoHfA" +
"ICCApOHEDgcA+OAnACAJgBya5jAoLh5hCc4OGcQ47GeQIBneNoGHaTI5kAKxOHuHAzjGXp5mwAZgnyNB/nCPh9g+ABinGYA1kmGYAAqThjgGQRwHiThPC8Vhfnma5/ng" +
"XZvn8ew7keQBfmOUAYCIBj7ngbY/nqS4/nkDYzieXwLn+dp+j+EpiE8CAAEKNwZFOTZ3FCOpgHyRQHkCcAJmUDRzgEHwhAYHoRAGHxADuCAxAeDxOAcHA3jmRw4guaoa" +
"mcbZMAwM4EDWTkNgGqQqHYPJEDmKhrDwB4QmcKAsgkcQGGQHBLiYfBGjcCESFATIID0KgDjgBJ3hGVQVk4JZqHcbpklef58g+fwFScd09j+AwnECWY0FeEIBFmdIyAsZ" +
"4fHyEIRB6Ch4F8UZLDWdQ5CAAheEOTAxGmWgDhqYIaEGO4AgiAYNm8RhwACKo4HaCgviCHptB4Uo9ACAQlFsG5rEINAFh4WpxAQRAqE4QAlGARJGjmLw2EYfAdk8DIom" +
"YGJKjISY5AiChKGYIg/EMUg7iEGZ7B8GABn4Do0jYWRVASMgiGoLwTHMdJKEkaI9CaZwej6H85mcCAGlwBQfFoH4bFyJgEAOdRBBCEoSC4ZpUAOOpwBURBbieeYzEeKw" +
"IAOJQAFSVABp6U5Kg+PhvkGex8HAOJnE2ZgPF4WY1kQHALiic54lcYYQiAQ55g6VQbHMdZfjyF4PCYTTLkaAQGCadRIE0VImlQLQgm0EhalsNYMkgHRMDKHpiGoEYmlA" +
"RpZDQYQMiECYzHwQhEHCKZOmOVZ+mMJYgFqIRgBYVoLCmXgHlAaoeCUYJKgcU4IneHoQiIQR5kIDBEBiGhMDoHgL4CQ/BiBeEIOILgRBaBwL8fweAZiZGaNEWoYBwjuB" +
"SAAOoiASBECMJwG44Qih6EEDMcIRBmCyBcPQRgwwBCRECJgPQ+h0gRBCDQZYNwXjwB8FAVYvQsC8BSKYWy+BvABC8DwSobAghSAEOoFgjGKAVEeJCA4oBxDZB2PwWQCW" +
"qgQAkCEAgfA4D2HSB0PwEwsBdCICkBoKgIjVAEFcD4gw8D0CsAEXwnQtgFBoAUPIahmiICANQRwWgjCDGKAsbwEBaCjEozkWQDhECcCiMsIAjBIiQBMAYA4DRUCMBsCk" +
"YA+xaCFESG8P4LwBCqGqIQOgiRtASESIYOA+xmAnCoIUYo1QJhiE4BIAT+REghVkG0SwcgnCbAEJoI44QoCnFQFQCgjx0BdCSG8XIzQegFc0KgbIJgWgkDUBkOIrgEic" +
"COKAM4HBwDnA+JkIQXg9jYBmJ1SI3w4hxDsIYNQzxnDeEUPkZwIQfAaFcE0LQmwsAtEsEYAo8BXCjCsEAAYLggDQEIOQYIsBWgeFSBkEo4A+iPBQIQGAIQ8AIBCBEPow" +
"BDjQCkKQAAHhoiMBGFEWoggFDqEkBkIA7RcjKDwNcAYthjh9AeBAIoKhCDUDaD0YIewUAlFiFoRqrBlhVGOHoAoXw9ADH0H4cA2RZieFmAsZAQwnitHgPoS4RhfDyEqH" +
"MaQcAhiaHoAQa4gwDCzCEB4GISgIgACeM0DIHwQi0AZAkOIGgoCfFQncQ4ZhcgqHYB8HwagsCPGaOoZwAhQATHGAwKgcAAiVGMjsSIihRBcFeK4CILQ7hjGAMsCoUBSg" +
"iEANMYg1RiiCAoKAd45wuCeDMK4VwYAbA3AQDgIwchDCUD2EIdAqA8gkCuAsSgXQZCcFeFcM4jAxhPHYOYZgdxHChAwCwJQhQ4hMB4H8SwKAKgeA4MMfwQQRV9qGPcGw" +
"UQDjOBOGoDwUA9BWBuJ8CEIxlh7G+MgKgxRciEEkHERo9hUBWWIJURgqhRA4CoEsJYjxXhQAAKKoY8R6DjGYLMaYjgMAgBKKgAQwQ7jcBYGAP4Fx9TnE8MMOgAhDiHFg" +
"FgYAcAFA7F2DATYdxGCjCCGcWIgBzinAWI4R4MxZh5FEMgEIVwrgzCUPESgIhCCYCwP4CgPg/DiASDEQIwhnBuBIMYIQ6g9X2D2GYOYmxTD3AcB8CQ3hbh4FaGoHI3gk" +
"j7HIE4awEAiAtAaCkXwxQSBAH6CsEAgBhi5BSMscoihug5HxmgLgZQFhYAqKYGIMRPgvCwCwFgqh9gwFOOQAoKg4D8pm2UOIeQOAAHwOgEYWBXA7BcC4I4tBHDgBlkoQ" +
"95x7hJFaN4OgwRbgAHWPEYIcw6gFFqEYUwUxnhsB8DITYGQciaHeL0bIKBZADAoG0CgFxWioDuGYNolQLAEAWkEagowVCs2SFAeIWBzD7A5NwC4kAuB4DgAQWYqRuj7G" +
"SAoQwDCtgZH0OQCYGBjgOAiDgbAzxmBmDgHzjQQBvh3k+CwS4PR1jRHEMcNgAhLgXGMCsPgGAsguGeBkQ4cxTDzCGKYWYfQpDwCoAoRQZwzguA4B4BrVhsA7HhycDIpQ" +
"jhrDCHkeoiR4gLDQIQYIXAtMfD6EAdQaBrMBEiLEJIFAoAdCiBEKgow8jNHOCqwgrhMi+A2PEMIThWiZFcIMaoCBIhEGSJkTgOwhCAFGAcBIRxvCmBqIcLIvwrC4FyIE" +
"dYBRqDaEiEcRAYRBi/GcFIc4OBJDLCmNYVYGwzdGBMNMDIqgYC2DyO8dwQQLgHCWLsJwEB4hIHGNkVwWRvreAiI0LQKwRDZGwKAVgUQGD7AcEEUgIAnBQFEI0f4XAEO6" +
"GsHADoaBSDkEKE0DQwwoCuBMMwQYBx4DwAIEoDwjQOBYhUgNhGAGBwgWB9gCADhXBZhkBfgtAAgFApBNhKABAcuohnAPhphug6B2B3BehghyAghRArAWBgAjBghDhPAp" +
"AZF1DsB4hjAlBUBFBEhThiheArAFhVBtB1BIhuBiAHgUALBMgXhXg/hGAqAggbAuB+hZgKgQHdBSgTAxA2A1AfBDhigRBAgyBzApgFhAAjh9goAlhvBSBsArACsBgshA" +
"BBhNgVgphqBvBAg8higxA0hPhoghhkgNgcBaBtBRhhBdBHB2B2AeBQgFgRhxh4ADAYgsgtBWBahchdBgB6h8gjgTBMABgIgghqh0AXAcAJhtBEAQAVBigZBMh5hUAKBN" +
"guAKAph+BVgQBYBglUBUgKgbAOhZgEgOAOhghygagOAOAgAlARhRA5hOByAWh6g6p/gugChjAAhrABhWBDBHA6hDByBtgaBeg8hpATBVvSg2vRgDhSAHJxvQA+AhB4A5" +
"hJB3h0gzgjhUAEBagFAnhPg/g2BUhIqJhchGA3hUgJBmh8BIAmAAgnB4BnBxhegjgMgtAyhsgphVheAdADA+O2hAhzB4AQBxA+AzAsABhpBYgBATBuhOheB1BshTBNBZ" +
"g5gsBWAWAnBWALBYBUAOwAh0gTARhoB4segWBrg4A/Awhgh5h6Bch4hFhRghgFhSAjgjhwAshYBcAfAhh1AgAkAeg3geh5A8G2BSh6gHAAAVBnAghGBQBdA3A+gEAggM" +
"gfhqgth4BQlMBXgGBBA3BJgxhZg0g7BVhEBhB/A3AxBahlBWP0g7BMh0h9BiBoh/AkBvhMh4AqnwABhjAWh0hEBUgCgjh2gUA1gcAdBAhOgOhMAmBggZh5BjA1gOgtBQ" +
"h3h2hWBCg2gLgpAVsNBWhnAUBZhAhfBvgRhCAwASh6hbAUgyBihJBEBwA6gmh4BggBBSBBAygABghEgIgWAaBQB3BKgFAYBRAQAFBggig0BGgFAIg5hYhKBwB5BlAYBe" +
"gPAwAuA6h2B3hhhnA+ASBiBGA5g4BYADgYhGBUBBhVhNhcgispBFA4A/hnhyAFhnAEBKH9hjh6gNBnAnAwgfB1gMhjhAh0hmBsAwBWhQAsBygshDAChYhNhZguB6AuES" +
"BeB+gXB+ByABg3gugVgeAvg9g7hwBBgPh3z/AmATBYA/gsBshthngrBlBZhiBCgugaBeAFABBnA2h4hWAtB3BcBnBWghAxA1g/BCACBFgahKAFA+hrgIimgXAIhhBkBg" +
"hAhihCwVArhshvA4h+AwASAChAAHAqhVgVoTB5B1gIoOAxBBBphzgegbgFgcAeB2BggMgWA1BDBWB4BxgHgLAmMrBrB1gHAUgdgeA9BdgJEbhDgfhNAQhah5B7AXhWhI" +
"hdByAjh3gCgpB2Acg+hvB5hzBLhLhSBnB0BdhfBSBfqRgNhVAFAQhMB1hrhNAEhQhY1SB0ANAxgxA7gDg7A7gwBWAMg+BRB1hmBxApAjhlhtg6ADBAhdA8g8hZBpArBG" +
"ANBFhTA2g3hQhLBIhshWBxhggQgmA9g8B/BeBxzzh/AXh8JCgDAqAdglAMg8B+AJhMBnBwB0BgggAPAjhrBFgThqA4gigPADgiAVASudB6gJBUhAgtAwB3h4BFFxhwBh" +
"h7hQhyAhBnAlh6ASgOh/B9gFBIBrA8g6hbh2hWgrBmgpA1BjB9gkAmAWgAALBMA7g4A6AABnA6hLACglBjBChCAVBth9Atg1BTB3gGhZhhg0BrhvBNhJBSBvAzBTBjgn" +
"hwBTgPhhBig8hjsJBIgRBKhPBJAjgXAXoYgPAHAHgABrhRhoB8U0B5BzBGBqhxBFAVAYBGAVg5BUhqAtAMhrgFhzAdgbhSAqA8B7AKAlAvB4gJANB4AxALAoAiVhpxBk" +
"hqBZARBiAUgZBXBbAvKRARAzhFgGg9hdhMhshmAMARAMAIh5BnBeAgA6AyAdAMhUi4BeBPhsBMqrgzhJh3BdAchRARhXBYhhAYg7guAuhGAEBzAchLgrhYBeAMosB0AU" +
"B8hNBygmhnquAbgbgOgHAVhaA/B6AvBvgwBthRhdBwB9h/g3A4BEhohdBgh3h/gwA3BHge0eg4B6BwBLBtg+BHABAOBagzApBNApBOh6gBghB5gBAI4QgLhTAEBMhBgu" +
"gRgkhnAihOBlgtglhLBNBEg0hFBzBIvEhbhvBYBkB3gugzg+BehNBTg8A3hrhRBjAGhvA/BqBwhuBkBigygjgkAOgugbg5A+gGhpgkhnhkghh1gvAdAzhWhdBLBWAoAM" +
"h4BYhbg3AqAZBHhBBjhiB/ACBqgPBjhADNAfh+hoBdAtgpAfgmhCh3gghgANBIg2BegABQAaAXg0AHBBBLAxAYM0AiBXg6gyhSgWANhLgzglhRAoBMB6ARgpAWhWg3Bt" +
"BrR9hAAqg8gLAPtxAZhlgZAjhDgRgHgn1PgEBhgxBiB9hHAHgfgAAI09A1BYhZqNAwAYAHBWklgGBsgIBYhizSB4BMA4g8BjBcLHXkhCjqAIg1AsgwPRhWhsBshcBJBq" +
"gEhMhhhBgUg8gsA2gCgHAQhBYYAzBaBAgnBkgAARgRZShpgLANA3BxgChmgVhyBnAmBBADgaBJmrh0iUB+hwB+gzB+h2gyA9hRhigdAIA+BHhkAkgtnMgAhehShtAHZz" +
"BRgUidgqNYrtR1hThggtAEAfAohiBCBOA6AjA4gyhZgHA4ATg3BsB6g2hytDhPQwhjD5gLAVp+BDBsATgppBBkgMhzgdoOP+YahHB0BBW7gHBHAdBDB6hkB4gEhqAdB4" +
"ByBRhPBbuqBLBrACAPB/g2BwBmhbhPBQgWg2h/B2BhgJhvA+B6AGBzhwB+AGOkAJhSB6B0All2BUgaB0BtAtBEgkBjAbgbAUBJBbh7rOgyh9h2A7B2A+gzhtACAmBaZ1" +
"Bqh6BWgWgmgrAMvbBdgLALgjAOA0gdsEBfhlgLAhhrA1hcBcBYAzhaggAUgoAjBxgQhpBVBoBJBsgXBzBqI4gLgTgGB1gJgHBHgNApg+gkgLA8BQgjhqAaBqBpBQA1gu" +
"h5gWg6BNB/hEhvArhkBlhdBWgbBDA9gxgbAChuAjAcA2hSh6ATBWgkglhPhNgKAEhOgug1hxB0AEA3BXBmhRQRAZBrgBApBPg2g8hCgaByhUE8BUhKhwBHvMhKhwhrAP" +
"A9h4g8A0gYhaBMhqAzhvA/h4hwhlgDA/hrBQh7g1gDBcAug4AogAhSAhgbh6hiAjAQg1BXB+h9B1gjBKBdACBageBxh0hpgJgOATgUATBwBJhPhPhwAeh6ApzQgnA8B2" +
"glgegVBhgrAgg9AlgChbgZhHAXhvBsAuBeA2ArhiA7BoBFgHgvgZBsBIgvBVAMA1gxgAhtA2hfg3geBkAlB1BYrbhbgKhzBbBUhEpeMhgOhnA+hGg7hvBQhWgwBGhSB3" +
"A1heB5h3AahUhvhahtBvgGhQAOgRBhhbAtg6gDgBA2gEhjBtTmA2gMgshvOYB8h4B8BVgLAig+g1AGhChtheBdgIh0B3AZgYB5B5gUgCg8BBhghFglBdAHhLg8ccBagh" +
"gShvB0hwAhBWgxglhlgNgkBSArA612tcg6gZhrBLUohIgZBQZVAWFNh1h/BVhyBNhNgGAKA2BTgkAAhtgQhZBsgdB5BPhvh8hNhfh9h9A3g+h5gNhfhdAdB9B+h0Ahg2" +
"BmgiBYhGgGhYB2hUh8gIAthHhXA2hEB4BbB0E5haBwAOBvAjgxgvBtgTBFhjg8hHhqA5A/gmA2glhxg2gJhDAWhKhsg5BLgChrhth9n6giAVgwhhhnhOg0hlBuh8h3O1" +
"g6h5gdg5gPhzgOhZAvBKg/h9EuB+AXhwAEg4TXBIhUgHAtgTA/AOg8AJh8ARhwBrhsAaABA/hYhHBFAEh/gXhgA9pRk8BjA8g7hAgxg2A3hoAIhbAsg1BFAUhxBFhfAo" +
"hVAAhFAAhZh+AphwAYhbAzg0BsXwBcBugUhbBhh2g7Acgt5fhxAPhBAwg/AEguW/hgAkBBhgBzA0Bdg3faBwBFg3h+hmhYh4hBfSgxg5h1A/gBheADASgcAKg/gJAjCR" +
"gkgignAiBXAhAwBBCAg==");
Grid1->HTMLPicture[L"p2"] = TVariant(String("gCJKBOI4NBQaBQAhQNJJIIhShQAFUREQIA0RFKQJY2iIJOBILJzhQOYkjYgBSorBwbhQKJ5pIZDKBQNBvOhvOc1OAgJMxEBwORvMxpNhlhR4bSdKZnKhTdIWHr3bz0I") +
"RLRCAShLN5SCoIEBSISLQAUSImFQhBIQJSIEKhbIVKLBCJFIoEDbIUCIAaORyARlwFgMRQKbAHcghUSOQajRCKZT7cJ7UZray8e7mZr+WrXHznVjzTqzZ4HYAIBiWJAz" +
"KI1QAMVJCDwRcCDY7EYzhcguICBBQkOAACAIWZkEJzfojAIAfB+Hg8FYiYAHXwAAJ4aYLBAAYBNTbAGAcQ7/B7qISZLgBQCEALAOiRHBLBFjABAPSOISm+ZG9CdTAmKY" +
"AFAAgADAZYxjEcYACgFsBhOP5zGmABAE6fBMj25ItkoEIKgCUBIgAEAJjKRAiAANAdgAVhnisRQigALAYAACgzCWYgcgAbEFhgJIrjMJAAFgW7tGcCAFlkADTAAGAokQ" +
"QoUgAAg9wGZARhGPAAEITMYiMeQrh4eIVlcCBzomAA8EyWQeFyEgciKQItgQFo4gOK4rhcDwUGcJILhWCgbDCAQwk0IAXGEPJMgyGRAhoB5wHmZiFQ6CrZEGeZ+jwZwH" +
"FcZxnBsRxbAcL4WnUX4DH+EQxQOfxymeVY4CAhRwjoPxon8FgXlmDRAB2AxADafxRBKdwCDQLwFlAOp7kWMxZAeIBawAdJtCueY4OW5oilCSBcmybJynIchsCUYghC2M" +
"JlCuPp/DOYQvmAK5+jYfLmH4e56nAXxxBIQIZC6QIjgIfBwGEZh6CYUoOGeSQEkIMRuHMR4jn4W4Fn+fgOmmERiCSMRciwFQKHGKIJDiRwiE0Rh5hkUoRESIRJBSYoSm" +
"kf4yHEb4WH2AYfG+GsfjUHwAj2SIWlQLoxgGewlhOCAsDoYBxHuhR5F2N5gmoFAEAGQA0EGcJnjuf53h+fojlAEsIjMJJJDihQvCIEgXCoZRZh+Y7sgAIhQECFRYCCDZ" +
"6GCDAWGAAwOGCApuGCBZ+DAGxCCEEhiGEIQICEBQyEADg5DAFJWEEIQUEMZpYA6FQwBeaggA6GhgCiNBDEmOAHUIKpcAcHo4AefQwgQTxghQXhAgSAggmQBAJjCEJtEQ" +
"AIxEULARkcBALkyQp8BCYIkAICRFhIEBkkQCgohEJZIhqJAYikRQqBAKokA6eQejkAQckOLgjF0SIdmQAAZEEPwQwvAjgxEoIEWQUQejUAYLUIYuRUA3A0IQIwogFjQD" +
"IHQGImhHgWFAJsaAchaAaB6IwGwoRzjQFWGgB42hHg+CGMcGAwB0AYAODMYgbAYAuGMMMIQsQcAsASJMMYyxYgiFYAwVYxgNCwCsKwAYuxEj1DGM8WId3tiBCKMABINg" +
"CB3CECAMIHgghICwEwLAThsBIFQCADgJAaARG0AkG4CQBiECiMIE4IhJioCWLQEwugIj5GIBgMQMgYiHCwEgFgIxrASEeBMF4EA9iICGMQG4JAJCJCGDIE4uRIACCSLE" +
"UgVBpASGkEYaQbgpAjHSCwVImwaBIA0CMSYyRtBkDWLIA4ORKAsBACsZAhRyCdHIMMcgMxyAbMOPILYChOhiCAHEUg+ApjiBQFIZQaglAZHKBAcoNBygGDKJgGQQQqij" +
"E0FIboqBQhUAiDUR4WghCtFCLYKQrwoiHFQBMGgdRNA5GaIMCwSQlilFaKISo0wNBoAuGge4aRXjoDpIAbolQPBOEuNAK40hljpCOOgS46ABj0DuAwBohgKm0EQGcFAG" +
"RNw0AwGcDIdwMCvEwEwUwGRpiLAyMcKgMAbgxHWJgc4mQHiZDeFVjwtgVB8AqJEZQChKhKEqCYSoGwVAvCoKkVQphVDeFUAsKo8wqjLCoI8VIXgph9FcEYKoMwpjjFSA" +
"kaglhVhVFUJ0KA6wpgbKWKkHYqBDiqDOKgN4VAfikD8FkfoiQDBZGGEwYYTwhikCiKAWIXxxi8GMCABYYwMizDwCwEIawGirEMHUQINRiAmFiM0bIfA7AqF2JgfoHRdi" +
"LB6KoVIoQchDBmEoGYVxZhSHmJQMwPwDjjEwHEfAnA6BOASOcFApxLjzD8IobwFB3gpHECkDYpgaBMFyDEMoXA1iqEsJcSwWBVhIFWFEVYRx1i9BsK4dopxOimF6EUXY" +
"WR9iBAcEEY4SgThcBOEcM4jxnAFE6OcKY2QpjdFOAoU4Fgmg9B0PUVwLhVBrFKBsUIuwiB3F+G4U47hMCeF8F4QAngmBvFON4PIvRzj6A4H0F4/QqD9DaPoU49QjgMCw" +
"AYWYDASAGG2AwZwGAeDFBqHEN4PAOgvGONseIUQhhdGGEAIYpQwiVDCJccIhBIi5GiDwUY1QjCNCMA8RgaRjBcHGCQcYbRjZ4FGCYAwJgQgmCWE0dQTR3TpCaLkUwKRT" +
"A7CZowY4zRmDNFEM0awmQaibB6DEa4Mhzib06NcTY3xbhgC0HgLQLBbCoFsLgMoSRZDkC0KYLI7hbC8DcIULQOQsilCwFULQXRZhGFaJ0VoJRrC7FaLsU4ERTi5CcJMJ" +
"wqxPDWDOMMWA8RbDJFsKkW4GRYDlGxkoVwtg2i2D6GEM4YgLhnFuMUVwwx3CTF6JMPoug+iNH6D0A4DRDjZAcKsDoWgOh+DmLQOQFAdBWB0N4TQzhODuB+H0Yo9BLDpB" +
"eGcLAzwIDPGwDMcYtgJjLBSMQNJShNjTwVusXIc1KCIEWIkJYghlguEuD4FwmwNjGG6MgXo5AlB0HqHELo4Q9DSHqJ0TYsxNjCHaKgbYrx3A2HcGkdwhxuCfGYDQT4KR" +
"PBZBmHMaAwxkBDHAFEco0QfgLE+JUGAaxvisD9ZQJ4gQzi1HOCMF4YwXiRCuK0a6QBSh3FUPcMI7wLg+HsD4OQnxxg+HGDwG43gZDeCyF8ZgNxgC3GQLcZYTxhhvE8F8" +
"Qo3whh/BGzQf4eh/jRAAKcQAJQAhnAGIkQIQU3ACH2PgPQfAQi/EcD8HQ2wyj2FkNkdoQRGCgFyEECoQRHiCFaIIcowRWghDQMgdgkPqj3HOJgZwkRnBpAcIUKAfh0DW" +
"GgAcMI5gwiLGGH4BgJxCiHEKFcQwPxHBwEQFgDQ0QYhLgag7hohuAhg5hvgiB9AiBLAiBvBNgzgYgngchXgWglAagVAfBVAXA1AeBtAbhdAaBdAfhjAXAzAshmBqgsBO" +
"gsAkg2AlgOAcgXAVBXAbA3A2BfBvh+B2h5hDhxBOhxAFhxg9gLhMAXhkAug4A8hQhnBhB6BCsLhUgXAJAWAdBLAgAmBEAnAcBKB4AggIAVBUALBGASh5AJg7gShHAFA8" +
"hhAOhhAzgRAXhogbBohEBsAhguAVKLh5AkAVAmg9BJB2BIheAag8gSBigZhSgWByhchCAThUhIBeAmAGgmBuhNgdBPALBNA7AQA2gZMNBegYhBhJBIhIA4ghBVAQgmhJ" +
"hbAzh1AzhzAzA7BlhWAyhChZB/Big3BFhbgXgPBKgDhkg1hZhIBWACgsgWgFBbD7h0AqAtAUBrgVADhZAzgykeBfhmhEhlAcq7BPAVhmh2hmBZhlBthIAbhOB3hPh/h2" +
"gJBhAJBwhJBbBShDAlgrgWgOgsBzBehWA1Ack0A4g8htgFBxgKgCgVhDArADBWAeBcBFKmA2hqgnhVh2grhLhXA/BegTA9Amg1hAgvBghlBBBghagAg1h1qxAFByhCg+" +
"h1huBrh2gugngsAXgshvhagwh9BDBOgNgfAKhEhFBXAKBtgLhLgKg/hsAUBuA8BygNhDg3hlBfhMhuBKBaBUhVhiBcgyBngzBpAzB0hzBvAWhPAtgHBLBVBLhzBLgHA3" +
"AGhshtBaAGhvgrBaB2h6h7AihtgXhLhmgUBthdhBhbIGhRhfyFBeAyhThkhnBmgdgfgqJRh6AqB9AqOpBpBuyahrh8A3Boh3ANg9heB7AaB2BqhtgtjLB+gfBkhfBtgq" +
"gAgqgmhqgzBqgyh9gkh9hZh7gfhXBEhVB0h8BLB9g2guhWgnA2g4h2hjgBhpABh+gDgRgHBbBrhchqBqgOhpAegqApBHhrAVh1gjgHBjgPhfB/BOh3g7gWgGgbAGgqhG" +
"hOBjBxARg4AiA8hyB0h7gEhvh7gPAGgdBtA7BGA9hWBwgDhpgPg7AOgzsqg1AhBNB5BNAjBNgphNB9gtgxAthdAnhmAfBohrB1BvA9B+AjhtgPgHhOAaAeAsg8glB5gq" +
"Bkg0htB0hBBphJgzh5BnhGBOhKhOg+g/AXB8huAwBthRBbA9hzgxhnBvg1AHg3h3hdAIA6BwhpAih/hFhzgdheAdhnAuB5BcA6B5BZBthygJgrhcArhNBXgdAvg2h1A6" +
"B1AeB/BJhpgnhjhdhOBdhNBXBcr0Bch3A9Behag9gzB7h0gNhPAbhnBuh6Beg8h4gLB/hrBqhPAcgehuheh5g9A3h7hil6hvgLBug/A5ATh+hnBlhdhsg7gTh3BWheAn" +
"heAvh6AgPjhsghhuhDhqgfgth/BuBsB3huA/g1BgA7hQB5wBgjh7gDBChBhnh/BIh6hHgHghgChHhMhHhlhDKTh1hPAcAfAcgchxAfg5B+h0h+BTghhnysATBPALlfh/" +
"BlhXALgLAXg/B8Bqh1hrhnBohMBohQhLh5BLhJhfg2g+BSh+h1BgB1gMhXhthjBhBjAPBfBkg8AZgYgvB6ArB9h2hgg7huA7gOh3hRhvgHgnhyA+AQA/gUB/g0B8hYh6" +
"gphoBTh9hJgMhJhJh/gCABhMB5h+AxgZgWhtiIgCAzgggmggiFBYhHA+B9gohJiIgQAxgkApAmiFA9GzkIhBiFB8h/iFBAB0iFA6kYAAB1AwCFAdBMCFALg3hJAvhigj" +
"CFAFh9AkgiAggqCkBWBMAshHguhjg4hjh/15Bsh3AZB7hnAGBDghg1AiBMgtCQBZASgtycBigkBIALh9gSg3gghfAgAfAkhfAkAIByASggBADqBBAWAgB5AIACBEAxAl" +
"hbAygWhqM8hDBRAcAZhOB6g3Azh0hWh5AYKaBpAItWg4gBhCg9hABBhth+h1h/quMOgxAzB+BygvjjhfBlAwAIBWA6AUA6gFhUAfBFBzALAKg6AEBGAvAIgzB5AVhnAy" +
"AngChRhuBag1hnhUh029AQh6hKxyhoh9g8BzgOh4A1grgZguB/hnANh8Bbg/g/ANgigjAIAihHBTBKhlhMgEh1BwAmhUBqAAASAPBWh7hxhfh8BtgjhngFBvgwAYBEBK" +
"BGAAATi5ABA2gWhshEhSAlBMg6gfBChOh7g3puANoXhJgYB2ArgMAHHyBggGAxATA+BZh4haggFDhBBEACAIh6hzA9gtA0BQhZJWhxh9gbhMhMhBhkBIBjhSBthzBgg7" +
"BogvgLhbAch2g1BIgFAtBvhYBaA+gMBhAwBVAxhwAQAkBNASBEBnh7AGBABMggAiB/g3goAlAIAIBBEKBxAqAzBNBSA6Apg9h2AKBXgFBIhlguBzgUhqBJBlgogmBXAU" +
"hCgahPB9A9AgAehlA+rahPh2APh5hkg4gvg+gYBcgbA2hxgjgigRB1gqgpALBWg3BaAQAxASArAZGMgEAiglh5BXgEg9BbAigJAaBWAPhIBmgShKgqgUhqg6AfhFhnB1" +
"gZAWA6A2AyBPA9BigQBFgjhehUBegRgbgXhahmhWgaBYgHgihcgJAugJheAFhIB5h6AuA9BLhqhXAZwQgLB7h8hMgpgqhrh9BlA4ANAJg6g4hSgYB8WMhYBDBfBbBRBz" +
"h/gIBGACBOglg6h4h0BrhSh1gvgFhCBbBpA/BPBsglAKhfBMgygRBpAVA8BfAMhBgkA2grhNgbBrANhJAtgVhzBVMVhPAdAxgahxgwA5AdAYBqgoA9gpBnB9gCh3hvBP" +
"BWg2BGh6BfBbtKBlBAAMh5kBBiB0hYhSg/gdgUAAgcAHgegogUALAvAGgyBb3VhVBehNhxg7A2gehyAcgugmBYgPAYBmg9hujAgxgtAuAig9o/BzhZgwhDAwSBhEg0hL" +
"BhAeA3BihvB4AQAChahWgVgwhqhlAUAmTbB9yUBmhGgFgUh9BEg5hehXBqhrg+APBvArACAoBqAehnh+BqgKBSg5gxgTAogMBTg9xxAIABhzBygYAqg6AZAUAzBdhShn" +
"h6AoBCh7BSkZAR0+h9hqhFg9B9U+Agg3heg/g6gmhMBeABAgBEBvAwgfBPh+ByA4A/h7iagIgfgmArBvAegcA4B/g0h9heh1hdBhBkhhhRg3A3A9gVhpF0hXhxhJg9S8" +
"Bxg1hDg9hvA8OKhbhBBpBxhYAjAihkgWBSBFhogGBiA6AkBfBhhqAKA3ByAHBfANsEq8BThvhchaBcB+hpgVgthx6ZBigf2shHhghhG8AzgZhSBEAoh6BcBuBnBjhFgD" +
"h7g/heB5h0hOgPhuBWB2gFBXg+h3hWhhhOh2hPhMh/BzA8BKgfA/AjB8hLALhiglg7gRIpBfhbhQBTB4gWBCB8AlBFBBAghiASBUAaB5hOBBhbgmgKAMBEh9AsglBJhv" +
"AkhGBdAcBfB/hJg3hkhugfg/B4hDhXhyBzBhAyniB4BVADBEgHASTegmgIhEgRAUAHh0Augshjhlh1gyhbA7A1h9gnhvhfB4gvhVhFhFhrhTA1g7B3htgTAzADgJh4hm" +
"BngJgJA2APA6gyg9BaBohLhvADhxBThA8aBIASgmhSgnAugbA3glAXASgqAwhhgYBaA2hTBthsg5g9A4h4BjAqg5h/gnhXB/h4AahFhVBHgQBzggBTAQhGABBIgeApgK" +
"AAAcAgg5AABDhABsA7AAABL7g3hwAjhyA/h3h+hBh2gwg4AXh/glgWh5A2g2huBAAKg8hiBDB3APArhagIgFhGB8gQgMBxAlgghEgABIgQA0gMA7h5huBcAFgkhKhehw" +
"BBAGhYh2hCg9BfA/A+g4hxhTsdg0BlhRAHhSA2AAhZALBSAMhIA0g8h+BOg9goABAcBBAqAABUgAB7APAwhogxB2h9AIArhdhnhXhfhZg7h4BIhuAUBbeWgRC9gegmAN" +
"B6hEhcBpgDBVeQgnhTBqA5goBYgaARASAQhagogJh6hJBFg+BoBWBkB+hmhYgeA+hqhjh9A5BWA3h/BwBChzgugvhWgzAEAsgBgohshZgMgUABARAACNAoAfABgigBCI" +
"BCADhKADgkhHgaB70tBqgwPDBPh/Boh2hJhxBWhZdohACytSkQAwp26ISCyh0y3IEzO/jeKhUzzASQUjhs510AkmqTSVF24EeTEwf32+XCvWu+0uamI3ECcgEJE+QUkf" +
"gY8hiRUilnezxA2R0JEcUGS4Xk2mc+Fmhy230eeViTSsZAULFCc2+NRiSgiCRkPFCqDw7CuAigRGSREgbkkoWQEGkzQWnheCj+eGgH3qTwo5RmwCYQBsAmoAW4Ai4AzS" +
"aW4LFaBSkc3sDhawA6iA4yCIJB8wnUyDCSEOLyOqWuwCwAyK2x0n1iNgyOAQRCaX0snkIEBItTAqwgchSyAMhsIGlIw0afmqgRKA34KUgrgGMAAIkA/CYVVCAUky1enw" +
"A9jOwmEAXQADMEA+gmqHlQD3o82S5jS11YhyM3hqujLFwYgjPIURkHEGhTAQLwnH8AiUM8jAAN8CQ0BMLSELcKhrKsTD4DEcy6FgaQ3NImgBCEwA8AM3ANJAfgFFAlwB" +
"MoABSAAyRHB4ChaK4IxyIASwgM0wDxFMIDeAUKxAGYQCuOo0goLUYT7IMCxkHoiwhGUjgFDkKQ2FgtTdBcBgTAMSAMCQJQSAo2RZCsXCRFEWzpNQFA+LYSjCAsEgAAsB" +
"iEAEYDAHEHxEAoJA3AAMQAMgAAQEsLxlAAHhgA8TgTHAuAPMQOSYCscCsCERSEJQST6KYizNMkdAqHUPBhFkTgANkUhwCkBx9CEaACJACCcBwZT+MQXA4DUcCuMcpwxK" +
"QTgzMsfibHQywBKAqDAHIDDIAIxASIghzgDQAxiAUkjlDIsAIEABCnBoCAzIAawQCIWCWCAaQBCMAQ+IUDyqJM2iQM0qihLQ1RKEgtgGKkGClAkczEEcHznDcfSUBkFA" +
"lPslDFBomT0CoExBFskgSEoCyfHo8zaCsWA1AAcQJIIORTJAzAZBwSQwLsMwVJcCQfEgyxPK95AgO4wBwCAqiQEIixZJ0HydMo5g9G8ZgfMooA+KsUROLQrTaNE0DGBQ" +
"XB6OoERKGABCoXIMQ1F0CDkDoLx5MYgQfHYVB9HQcjcHsYzcOYlCMAUtBdqgXSaF4TgnB4lTbGcPjqAAPjPA4BA4IIcCMFkmzhNA9x3KoqjwKUzh7KwTDhJkagFHY7j0" +
"NARzfD0NSPJ43yHLgiwyCY0zvBAQytGU2yWDo6CYPUpifB8rDtG4TTmJssiyOAmCBFQDhQP4GCwFoZg5AACAAIcsxoD83xAAI4AIFQtzYL8IzZNsyyfDAxQHE48A9MgN" +
"glgghFFKJkKgTAiAyHiJca4owiBgAkCkdYDg6ipE0EIGQiQnCtA6LACI6hUD5GsI0bonQvhtB8LsBQeByBACiIAJgAQ9AEFWJcWAOBBgkf2AYJACgkCEHIrQGLzRnixG" +
"uD0X4ew4jrBkDEMYsxBjeFeJkD4shYh1EoD4BobAXglC+OINIUQ/juC2BwQoSgmi+G0DgJQhxShYDoCUT4iAwhxH4JwUgtQDg3A+F4Xw1xdh9FwDUPQYQBjeEqIAZQAQ" +
"ogCGQEEWAjwmgZGANwAIXBBhBDAMcCADQRhNHsHEfYbhrA8EgBcf4ehaisB8O8M4JRkjpBoFMbo8QUC2A6FMGYnxoBoAQPEUgoAnimFOHMF48AYBeAkJECojRJDJDiEY" +
"GYzRYDTEwK8bonA6DXDOO8Pw/BFg/H2J4bQ3gMC8HwBoQQrxgBcEAHQAIlgLDEA0CAQA2QBhJECOMLIfBUiYAgE8HxywvgeDsLcfoqw/g3G4NgHgcATjzEeE4I49o+jx" +
"CECUC4Exnh1HgAgUA+hrCHEAJAL4CkaCYGAPAJIAg4BdEMBkPY9AniiA0NYNADxli8HQHcPYiw1h/HmNYPYnx+D5FWO4ToKx1hXC+AcRoxwkBqAAE4fI8haDiFmOgcwG" +
"hpATDQHERQyR7O8D6PMUAuxKheH+PsWgsh9BPCaL0XAXxWhvCMMkawuA0h7CWNoJQpQVDEBIBASAmx/gtAuL8FAPQejmAECEGIpQXApByBMC4DhSivAuDIFgzAlCWC6G" +
"odQ5gBhbAcC8WoxQPj+GGH8P48hgw0HcLwfI/QzivHaAwQ4lxXDBFYDwA4sgxiAAKNgJoEB1j7EwO4PwjBujbDuOMewUQ7B7FsPofY/xfPWDkNAYIthYD6FQFkUggx/B" +
"mB+PYBQWwmAOG4MQQ46AkALGgKAf41AFD/A4JIDwVw7DOEGJoXADhrB3D8KAGGAwxDHCgCwAw6xChNDcPIbwIhvj6GyIQKwDw3jcEyLyLAeBZgYHsN4LgsxbDIEQIQeg" +
"3g6srCeE4XovQtibAuN8FYxxhijB4B8HwCB8jgFCAkOAdQWC6CoEoGwVAahcH2NkagzQiivCuP4T4gh8xgH+DgGAExAjnGiLYIwGhNDFHCKESgXidBODuF0bgkRTD3BA" +
"JceYbBaBqA+B4Y4zQ7inBoKkR46xiggAmGpZ4MY3h6G2FccQngKg2DUCUe4ZAvAJC6LsaAcQ3iXBmG4KoJBoj6GEB0GwnhujBEoLMAIRQJAEFgPgLQ9x9BlFWAUBIQho" +
"gxCsOsYQBhYjhFuKsYwmRDiVCaMMZIIhOhsY4HcQYjh3gzHKLcfQQwYj0F8GoRYfhbClHkJgaITB3AEEyI4KoRBxCsHkK4YokRWDKAEKcaYtgPBfB0M0JoAx8DIDaJcQ" +
"4vAUDBDSPIRoWwdB8G8HAMQEhqBGf0GIMYNhXC3GaKwW46hHBmA4LYZgTg2AxH8HUMQ8woBnHyIYSg7gkAoGmAkdorBkDsCcCYFINB2jsCIAUHoZBNidBoLIHQyh8jIG" +
"MC4GoCwNB1DaKwMfLhyA2B6K0d48BKh7CeHwLwBgCAmB0OEIIKhrieCSJMaATwrj8GeHsRI3BBg2AaGYaIhwnBajQJECY6QkBCFwJwVI2A7ghYSOsOYrQmhDEyFUNogx" +
"9DUC8J4ZY6QIhtGeC8XQcRPAgEQH8W43QeACCwFIYQfgehIA8JoZIpBTDrFaH8Cy0ApC5EuB4Tg1BQBsB6DcY42hgCWGKGgcIkhJh1GmIQSozRqhuD0DwSYvQIjiBOHs" +
"YYlBVgOAoOMeQ/gjC/C2NAeYEQQ0pCQIkPoPhUC8HGAgY4QQMCjB0O8cwbAFB5GECnoYoh4gOCIL4NY0xOjbD3B4B1BUAmClAyAYDFDLDKDqDrB1BKD/BnAADtCOCxD1" +
"DLZnCEAAgZAABJBFBOBECuBCBgCCEBA==");
TVariant var_HTMLPicture = TVariant(Grid1->HTMLPicture[L"aka1"]);
Grid1->HeaderHeight = 24;
Grid1->DefaultItemHeight = 48;
Grid1->DrawGridLines = Exgridlib_tlb::GridLinesEnum::exRowLines;
Grid1->GridLineColor = RGB(240,240,240);
Grid1->SelBackMode = Exgridlib_tlb::BackModeEnum::exTransparent;
Grid1->ColumnAutoResize = false;
Grid1->ContinueColumnScroll = false;
/*
	Select the Component\Import Component...\Import a Type Library,
	to import the following Type Library:

		Microsoft ActiveX Data Objects 6.1 Library

	TypeLib: msado15.dll

	to define the namespace: Adodb_tlb
*/
//#include "ADODB_TLB.h"
Adodb_tlb::_RecordsetPtr rs = Variant::CreateObject(L"ADOR.Recordset");
	rs->Open(TVariant("Orders"),TVariant("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\\Program Files\\Exontrol\\ExGrid\\Sample\\Access\\misc.accdb"),Adodb_tlb::CursorTypeEnum::adOpenStatic,Adodb_tlb::LockTypeEnum::adLockOptimistic,0);
Grid1->DataSource = (IDispatch*)rs;
Grid1->Columns->get_Item(TVariant(0))->set_Def(Exgridlib_tlb::DefColumnEnum::exCellValueFormat,TVariant(1));
Grid1->Columns->get_Item(TVariant(0))->FormatColumn = L"value + ` <img>p` + (1 + (value mod 3 ) ) + `</img>`";
Grid1->Columns->get_Item(TVariant(0))->Width = 112;
Grid1->Columns->get_Item(TVariant(1))->set_Def(Exgridlib_tlb::DefColumnEnum::exCellHasCheckBox,TVariant(1));
Grid1->Columns->get_Item(TVariant(2))->set_LevelKey(TVariant("1"));
Grid1->Columns->get_Item(TVariant(3))->set_LevelKey(TVariant("1"));
Grid1->Columns->get_Item(TVariant(4))->set_LevelKey(TVariant("1"));
Grid1->AutoDrag = Exgridlib_tlb::AutoDragEnum::exAutoDragCopyImage;
Grid1->SingleSel = false;
Exgridlib_tlb::IItemsPtr var_Items = Grid1->Items;
	long h = var_Items->get_ItemByIndex(1);
	var_Items->set_SelectItem(h,true);
	h = var_Items->get_ItemByIndex(2);
	var_Items->set_SelectItem(h,true);
	h = var_Items->get_ItemByIndex(3);
	var_Items->set_SelectItem(h,true);
	var_Items->set_LockedItemCount(Exgridlib_tlb::VAlignmentEnum::exBottom,1);
	h = var_Items->get_LockedItem(Exgridlib_tlb::VAlignmentEnum::exBottom,0);
	var_Items->set_CellValue(TVariant(h),TVariant(1),TVariant("<font ;16>Click the selection and <b>wait to start dragging</b>, and then drop to Microsoft Word, ..."));
	var_Items->set_CellSingleLine(TVariant(h),TVariant(1),Exgridlib_tlb::CellSingleLineEnum::exCaptionWordWrap);
	var_Items->set_CellValueFormat(TVariant(h),TVariant(1),Exgridlib_tlb::ValueFormatEnum::exHTML);
	var_Items->set_CellHAlignment(TVariant(h),TVariant(1),Exgridlib_tlb::AlignmentEnum::CenterAlignment);
	var_Items->set_ItemDivider(h,1);
	var_Items->set_ItemDividerLineAlignment(h,Exgridlib_tlb::DividerAlignmentEnum::DividerTop);
Grid1->EndUpdate();

Grid1->BeginUpdate();
Grid1->ColumnAutoResize = false;
Grid1->ContinueColumnScroll = false;
/*
	Select the Component\Import Component...\Import a Type Library,
	to import the following Type Library:

		Microsoft ActiveX Data Objects 6.1 Library

	TypeLib: msado15.dll

	to define the namespace: Adodb_tlb
*/
//#include "ADODB_TLB.h"
Adodb_tlb::_RecordsetPtr rs = Variant::CreateObject(L"ADOR.Recordset");
	rs->Open(TVariant("Orders"),TVariant("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\\Program Files\\Exontrol\\ExGrid\\Sample\\Access\\misc.accdb"),Adodb_tlb::CursorTypeEnum::adOpenStatic,Adodb_tlb::LockTypeEnum::adLockOptimistic,0);
Grid1->DataSource = (IDispatch*)rs;
Grid1->Columns->get_Item(TVariant(2))->set_LevelKey(TVariant("1"));
Grid1->Columns->get_Item(TVariant(3))->set_LevelKey(TVariant("1"));
Grid1->Columns->get_Item(TVariant(4))->set_LevelKey(TVariant("1"));
Grid1->AutoDrag = Exgridlib_tlb::AutoDragEnum::exAutoDragCopyText;
Grid1->SingleSel = false;
Exgridlib_tlb::IItemsPtr var_Items = Grid1->Items;
	long h = var_Items->get_ItemByIndex(1);
	var_Items->set_SelectItem(h,true);
	h = var_Items->get_ItemByIndex(3);
	var_Items->set_SelectItem(h,true);
	h = var_Items->get_ItemByIndex(4);
	var_Items->set_SelectItem(h,true);
	h = var_Items->get_ItemByIndex(5);
	var_Items->set_SelectItem(h,true);
	var_Items->set_LockedItemCount(Exgridlib_tlb::VAlignmentEnum::exBottom,1);
	h = var_Items->get_LockedItem(Exgridlib_tlb::VAlignmentEnum::exBottom,0);
	var_Items->set_CellValue(TVariant(h),TVariant(0),TVariant("<font ;16>Click the selection and <b>wait to start dragging</b>, and then drop to Microsoft Word, Excel, ..."));
	var_Items->set_CellSingleLine(TVariant(h),TVariant(0),Exgridlib_tlb::CellSingleLineEnum::exCaptionWordWrap);
	var_Items->set_CellValueFormat(TVariant(h),TVariant(0),Exgridlib_tlb::ValueFormatEnum::exHTML);
	var_Items->set_CellHAlignment(TVariant(h),TVariant(0),Exgridlib_tlb::AlignmentEnum::CenterAlignment);
	var_Items->set_ItemDivider(h,0);
	var_Items->set_ItemDividerLineAlignment(h,Exgridlib_tlb::DividerAlignmentEnum::DividerTop);
Grid1->EndUpdate();

Grid1->BeginUpdate();
Grid1->VisualAppearance->Add(1,TVariant("c:\\exontrol\\images\\normal.ebn"));
Grid1->AutoDrag = Exgridlib_tlb::AutoDragEnum::exAutoDragPositionAny;
Grid1->LinesAtRoot = Exgridlib_tlb::LinesAtRootEnum::exNoLinesAtRoot;
Grid1->HasLines = Exgridlib_tlb::HierarchyLineEnum::exSolidLine;
Grid1->HasButtons = Exgridlib_tlb::ExpandButtonEnum::exWPlus;
Grid1->ShowFocusRect = false;
Grid1->SelBackMode = Exgridlib_tlb::BackModeEnum::exTransparent;
Grid1->Columns->Add(L"Task");
Exgridlib_tlb::IItemsPtr var_Items = Grid1->Items;
	long h = var_Items->AddItem(TVariant("Group 1"));
	var_Items->set_ItemBold(h,true);
	var_Items->set_ItemDivider(h,0);
	long h1 = var_Items->InsertItem(h,TNoParam(),TVariant("Task 1"));
	long h2 = var_Items->InsertItem(h1,TNoParam(),TVariant("Task 2"));
	h2 = var_Items->InsertItem(h1,TNoParam(),TVariant("Task 3"));
	long h3 = var_Items->InsertItem(h,TNoParam(),TVariant("Task 3"));
	var_Items->set_ExpandItem(h,true);
	var_Items->set_ExpandItem(h1,true);
	h = var_Items->AddItem(TVariant("Group 2"));
	var_Items->set_ItemBold(h,true);
	var_Items->set_ItemDivider(h,0);
	var_Items->set_LockedItemCount(Exgridlib_tlb::VAlignmentEnum::exBottom,1);
	h = var_Items->get_LockedItem(Exgridlib_tlb::VAlignmentEnum::exBottom,0);
	var_Items->set_CellValue(TVariant(h),TVariant(0),TVariant(String("Click a row, and move by dragging <b>up, down</b> to change the row's parent or <b>left,right</b> to increase or decrease the i") +
"ndentation."));
	var_Items->set_CellSingleLine(TVariant(h),TVariant(0),Exgridlib_tlb::CellSingleLineEnum::exCaptionWordWrap);
	var_Items->set_CellValueFormat(TVariant(h),TVariant(0),Exgridlib_tlb::ValueFormatEnum::exHTML);
Grid1->EndUpdate();

Grid1->BeginUpdate();
Grid1->VisualAppearance->Add(1,TVariant("c:\\exontrol\\images\\normal.ebn"));
Grid1->AutoDrag = Exgridlib_tlb::AutoDragEnum::exAutoDragPositionKeepIndent;
Grid1->LinesAtRoot = Exgridlib_tlb::LinesAtRootEnum::exNoLinesAtRoot;
Grid1->HasLines = Exgridlib_tlb::HierarchyLineEnum::exThinLine;
Grid1->ShowFocusRect = false;
Grid1->Columns->Add(L"Task");
Exgridlib_tlb::IItemsPtr var_Items = Grid1->Items;
	long h = var_Items->AddItem(TVariant("Group 1"));
	var_Items->set_ItemDivider(h,0);
	var_Items->set_ItemBold(h,true);
	long h1 = var_Items->InsertItem(h,TNoParam(),TVariant("Task 1"));
	long h2 = var_Items->InsertItem(h,TNoParam(),TVariant("Task 2"));
	long h3 = var_Items->InsertItem(h,TNoParam(),TVariant("Task 3"));
	var_Items->set_ExpandItem(h,true);
	h = var_Items->AddItem(TVariant("Group 2"));
	var_Items->set_ItemBold(h,true);
	var_Items->set_ItemDivider(h,0);
Grid1->EndUpdate();

Grid1->BeginUpdate();
Grid1->VisualAppearance->Add(1,TVariant("c:\\exontrol\\images\\normal.ebn"));
Grid1->AutoDrag = Exgridlib_tlb::AutoDragEnum::exAutoDragPosition;
Grid1->Columns->Add(L"Task");
Exgridlib_tlb::IItemsPtr var_Items = Grid1->Items;
	long h1 = var_Items->AddItem(TVariant("Task 1"));
	long h2 = var_Items->AddItem(TVariant("Task 2"));
	long h3 = var_Items->AddItem(TVariant("Task 3"));
Grid1->EndUpdate();

Grid1->BeginUpdate();
Grid1->Columns->Add(L"Def");
Grid1->HotBackColor = RGB(0,0,128);
Grid1->HotForeColor = RGB(255,255,255);
Exgridlib_tlb::IItemsPtr var_Items = Grid1->Items;
	var_Items->AddItem(TVariant("Item A"));
	var_Items->AddItem(TVariant("Item B"));
	var_Items->AddItem(TVariant("Item C"));
Grid1->EndUpdate();

Grid1->BeginUpdate();
Grid1->Columns->Add(L"Task");
Exgridlib_tlb::IItemsPtr var_Items = Grid1->Items;
	var_Items->AddItem(TVariant("Task 1"));
	var_Items->AddItem(TVariant("Task 2"));
Grid1->EndUpdate();
Grid1->Template = L"Dim p;p = CreateObject(`Exontrol.Print`);p.PrintExt = Me;p.AutoRelease = False;p.Preview();";

Grid1->BeginUpdate();
Grid1->Columns->Add(L"Default");
Exgridlib_tlb::IItemsPtr var_Items = Grid1->Items;
	var_Items->AddItem(TVariant("Item 1"));
	var_Items->AddItem(TVariant("Task 2"));
Grid1->EndUpdate();
/*
	Select the Component\Import Component...\Import a Type Library,
	to import the following Type Library:

		ExPrint 1.0 Control Library

	TypeLib: ExPrint.dll

	to define the namespace: Exprintlib_tlb
*/
//#include "EXPRINTLIB_TLB.h"
Exprintlib_tlb::IExPrintPtr var_Print = Variant::CreateObject(L"Exontrol.Print");
	var_Print->PrintExt = (IUnknown*)Grid1->ExecuteTemplate(L"me");
	var_Print->Preview();

Grid1->BeginUpdate();
Exgridlib_tlb::IConditionalFormatPtr var_ConditionalFormat = Grid1->ConditionalFormats->Add(L"1",TVariant("K1"));
	var_ConditionalFormat->BackColor = RGB(255,0,0);
	var_ConditionalFormat->ApplyTo = Exgridlib_tlb::FormatApplyToEnum(0x1);
Exgridlib_tlb::IConditionalFormatPtr var_ConditionalFormat1 = Grid1->ConditionalFormats->Add(L"1",TVariant("K2"));
	var_ConditionalFormat1->BackColor = RGB(255,0,0);
	var_ConditionalFormat1->ApplyTo = Exgridlib_tlb::FormatApplyToEnum(0x2);
Grid1->MarkSearchColumn = false;
Grid1->DrawGridLines = Exgridlib_tlb::GridLinesEnum::exRowLines;
Exgridlib_tlb::IColumnsPtr var_Columns = Grid1->Columns;
	var_Columns->Add(L"Column 1");
	var_Columns->Add(L"Column 2");
	var_Columns->Add(L"Column 3");
Exgridlib_tlb::IItemsPtr var_Items = Grid1->Items;
	var_Items->AddItem(TNoParam());
	var_Items->AddItem(TNoParam());
	var_Items->AddItem(TNoParam());
Grid1->EndUpdate();

// ButtonClick event - Occurs when user clicks on the cell's button.
void __fastcall TForm1::Grid1ButtonClick(TObject *Sender,Exgridlib_tlb::HITEM   Item,long   ColIndex,Variant   Key)
{
	/*
		Select the Component\Import Component...\Import a Type Library,
		to import the following Type Library:
			Microsoft ActiveX Data Objects 6.1 Library
		TypeLib: msado15.dll
		to define the namespace: Adodb_tlb
	*/
	//#include "ADODB_TLB.h"
	Adodb_tlb::_RecordsetPtr var_Recordset = (IDispatch*)Grid1->DataSource;
		var_Recordset->AddNew(TVariant("Task"),TVariant("New-Task"));
		var_Recordset->Update(TNoParam(),TNoParam());
}

// Error event - Fired when an internal error occurs.
void __fastcall TForm1::Grid1Error(TObject *Sender,long   Error,BSTR   Description)
{
	OutputDebugString( L"Description" );
}

Adodb_tlb::_RecordsetPtr rs = Variant::CreateObject(L"ADODB.Recordset");
	rs->Append(L"Task",Adodb_tlb::DataTypeEnum::adBSTR,0,TNoParam(),TNoParam());
	rs->Append(L"Start",Adodb_tlb::DataTypeEnum::adDate,0,TNoParam(),TNoParam());
	rs->Append(L"End",Adodb_tlb::DataTypeEnum::adDate,0,TNoParam(),TNoParam());
rs->Open(TNoParam(),TNoParam(),TNoParam(),TNoParam(),0);
Grid1->DrawGridLines = Exgridlib_tlb::GridLinesEnum::exRowLines;
Grid1->DetectAddNew = true;
Grid1->DetectDelete = true;
Grid1->DataSource = (IDispatch*)rs;
Exgridlib_tlb::IItemsPtr var_Items = Grid1->Items;
	var_Items->set_LockedItemCount(Exgridlib_tlb::VAlignmentEnum::exTop,1);
	long h = var_Items->get_LockedItem(Exgridlib_tlb::VAlignmentEnum::exTop,0);
	var_Items->set_ItemDivider(h,0);
	var_Items->set_ItemHeight(h,22);
	var_Items->set_CellValue(TVariant(h),TVariant(0),TVariant("AddNew"));
	var_Items->set_CellHasButton(TVariant(h),TVariant(0),true);
	var_Items->set_CellHAlignment(TVariant(h),TVariant(0),Exgridlib_tlb::AlignmentEnum::CenterAlignment);

// OLEStartDrag event - Occurs when the OLEDrag method is called.
void __fastcall TForm1::Grid1OLEStartDrag(TObject *Sender,Exgridlib_tlb::IExDataObject   *Data,long *   AllowedEffects)
{
	// Data.SetData("your data to drag")
	AllowedEffects = 2;
}

Grid1->BeginUpdate();
Grid1->Columns->Add(L"Default");
Exgridlib_tlb::IItemsPtr var_Items = Grid1->Items;
	var_Items->AddItem(TVariant("Item 1"));
	var_Items->AddItem(TVariant("Item 2"));
	var_Items->AddItem(TVariant("Item 3"));
	var_Items->AddItem(TVariant("Item 4"));
	var_Items->AddItem(TVariant("Item 5"));
Grid1->OLEDropMode = Exgridlib_tlb::exOLEDropModeEnum::exOLEDropManual;
Grid1->EndUpdate();

// AfterExpandItem event - Fired after an item is expanded (collapsed).
void __fastcall TForm1::Grid1AfterExpandItem(TObject *Sender,Exgridlib_tlb::HITEM   Item)
{
	OutputDebugString( L"AfterExpandItem" );
	OutputDebugString( L"Item" );
}

// AnchorClick event - Occurs when an anchor element is clicked.
void __fastcall TForm1::Grid1AnchorClick(TObject *Sender,BSTR   AnchorID,BSTR   Options)
{
	OutputDebugString( L"AnchorClick" );
	OutputDebugString( L"AnchorID" );
	OutputDebugString( L"Options" );
}

// BeforeExpandItem event - Fired before an item is about to be expanded (collapsed).
void __fastcall TForm1::Grid1BeforeExpandItem(TObject *Sender,Exgridlib_tlb::HITEM   Item,Variant *   Cancel)
{
	OutputDebugString( L"BeforeExpandItem" );
	OutputDebugString( L"Item" );
}

// ButtonClick event - Occurs when user clicks on the cell's button.
void __fastcall TForm1::Grid1ButtonClick(TObject *Sender,Exgridlib_tlb::HITEM   Item,long   ColIndex,Variant   Key)
{
	OutputDebugString( L"ButtonClick" );
	OutputDebugString( L"Item" );
	OutputDebugString( L"ColIndex" );
	OutputDebugString( L"Key" );
}

// CellImageClick event - Fired after the user clicks on the image's cell area.
void __fastcall TForm1::Grid1CellImageClick(TObject *Sender,Exgridlib_tlb::HITEM   Item,long   ColIndex)
{
	OutputDebugString( L"CellImageClick" );
	OutputDebugString( L"Item" );
	OutputDebugString( L"ColIndex" );
}

// CellStateChanged event - Fired after cell's state has been changed.
void __fastcall TForm1::Grid1CellStateChanged(TObject *Sender,Exgridlib_tlb::HITEM   Item,long   ColIndex)
{
	OutputDebugString( L"CellStateChanged" );
	OutputDebugString( L"Item" );
	OutputDebugString( L"ColIndex" );
}

// Change event - Occurs when the user changes the cell's content.
void __fastcall TForm1::Grid1Change(TObject *Sender,Exgridlib_tlb::HITEM   Item,long   ColIndex,Variant *   NewValue)
{
	OutputDebugString( L"Change" );
	OutputDebugString( L"Item" );
	OutputDebugString( L"ColIndex" );
	OutputDebugString( L"NewValue" );
}

// Click event - Occurs when the user presses and then releases the left mouse button over the grid control.
void __fastcall TForm1::Grid1Click(TObject *Sender)
{
	OutputDebugString( L"Click" );
}

// ColumnClick event - Fired after the user clicks on column's header.
void __fastcall TForm1::Grid1ColumnClick(TObject *Sender,Exgridlib_tlb::IColumn   *Column)
{
	OutputDebugString( L"ColumnClick" );
}

// DblClick event - Occurs when the user dblclk the left mouse button over an object.
void __fastcall TForm1::Grid1DblClick(TObject *Sender,short   Shift,int   X,int   Y)
{
	OutputDebugString( L"DblClick" );
	OutputDebugString( L"Shift" );
	OutputDebugString( L"X" );
	OutputDebugString( L"Y" );
	Grid1->Edit(TNoParam());
}

// Edit event - Occurs just before editing the focused cell.
void __fastcall TForm1::Grid1Edit(TObject *Sender,Exgridlib_tlb::HITEM   Item,long   ColIndex,VARIANT_BOOL *   Cancel)
{
	OutputDebugString( L"Edit" );
	OutputDebugString( L"Item" );
	OutputDebugString( L"ColIndex" );
}

// EditClose event - Occurs when the edit operation ends.
void __fastcall TForm1::Grid1EditClose(TObject *Sender)
{
	OutputDebugString( L"EditClose" );
}

// EditOpen event - Occurs when the edit operation starts.
void __fastcall TForm1::Grid1EditOpen(TObject *Sender)
{
	OutputDebugString( L"EditOpen" );
}

// FilterChange event - Occurs when filter was changed.
void __fastcall TForm1::Grid1FilterChange(TObject *Sender)
{
	OutputDebugString( L"FilterChange" );
}

// FilterChanging event - Notifies your application that the filter is about to change.
void __fastcall TForm1::Grid1FilterChanging(TObject *Sender)
{
	OutputDebugString( L"FilterChanging" );
}

// FocusChanged event - Occurs when a new cell is focused.
void __fastcall TForm1::Grid1FocusChanged(TObject *Sender)
{
	OutputDebugString( L"FocusChanged" );
}

// KeyDown event - Occurs when the user presses a key while an object has the focus.
void __fastcall TForm1::Grid1KeyDown(TObject *Sender,short *   KeyCode,short   Shift)
{
	OutputDebugString( L"KeyDown" );
	OutputDebugString( L"KeyCode" );
	OutputDebugString( L"Shift" );
}

// KeyPress event - Occurs when the user presses and releases an ANSI key.
void __fastcall TForm1::Grid1KeyPress(TObject *Sender,short *   KeyAscii)
{
	OutputDebugString( L"KeyPress" );
	OutputDebugString( L"KeyAscii" );
}

// KeyUp event - Occurs when the user releases a key while an object has the focus.
void __fastcall TForm1::Grid1KeyUp(TObject *Sender,short *   KeyCode,short   Shift)
{
	OutputDebugString( L"KeyUp" );
	OutputDebugString( L"KeyCode" );
	OutputDebugString( L"Shift" );
}

// LayoutChanged event - Occurs when column's position or column's size is changed.
void __fastcall TForm1::Grid1LayoutChanged(TObject *Sender)
{
	OutputDebugString( L"LayoutChanged" );
}

// MouseDown event - Occurs when the user presses a mouse button.
void __fastcall TForm1::Grid1MouseDown(TObject *Sender,short   Button,short   Shift,int   X,int   Y)
{
	OutputDebugString( L"MouseDown" );
	OutputDebugString( L"Button" );
	OutputDebugString( L"Shift" );
	OutputDebugString( L"X" );
	OutputDebugString( L"Y" );
}

// MouseMove event - Occurs when the user moves the mouse.
void __fastcall TForm1::Grid1MouseMove(TObject *Sender,short   Button,short   Shift,int   X,int   Y)
{
}

// MouseUp event - Occurs when the user releases a mouse button.
void __fastcall TForm1::Grid1MouseUp(TObject *Sender,short   Button,short   Shift,int   X,int   Y)
{
	OutputDebugString( L"MouseUp" );
	OutputDebugString( L"Button" );
	OutputDebugString( L"Shift" );
	OutputDebugString( L"X" );
	OutputDebugString( L"Y" );
}

// OffsetChanged event - Occurs when the scroll position has been changed.
void __fastcall TForm1::Grid1OffsetChanged(TObject *Sender,VARIANT_BOOL   Horizontal,long   NewVal)
{
	OutputDebugString( L"OffsetChanged" );
	OutputDebugString( L"Horizontal" );
	OutputDebugString( L"NewVal" );
}

// OversizeChanged event - Occurs when the right range of the scroll has been changed.
void __fastcall TForm1::Grid1OversizeChanged(TObject *Sender,VARIANT_BOOL   Horizontal,long   NewVal)
{
	OutputDebugString( L"OversizeChanged" );
	OutputDebugString( L"Horizontal" );
	OutputDebugString( L"NewVal" );
}

// RClick event - Fired when right mouse button is clicked
void __fastcall TForm1::Grid1RClick(TObject *Sender)
{
	OutputDebugString( L"RClick" );
}

// ScrollButtonClick event - Occurs when the user clicks a button in the scrollbar.
void __fastcall TForm1::Grid1ScrollButtonClick(TObject *Sender,Exgridlib_tlb::ScrollBarEnum   ScrollBar,Exgridlib_tlb::ScrollPartEnum   ScrollPart)
{
	OutputDebugString( L"ScrollButtonClick" );
	OutputDebugString( L"ScrollBar" );
	OutputDebugString( L"ScrollPart" );
}

// SelectionChanged event - Fired after a new item has been selected.
void __fastcall TForm1::Grid1SelectionChanged(TObject *Sender)
{
	OutputDebugString( L"SelectionChanged" );
}

// Sort event - Fired when the control sorts a column.
void __fastcall TForm1::Grid1Sort(TObject *Sender)
{
	OutputDebugString( L"Sort" );
}

Grid1->BeginUpdate();
Grid1->Images(TVariant(String("gBJJgBAIEAAGAEGCAAhb/hz/EIAh8Tf5CJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq") +
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1BAmBhOCwMGwuDw2ExWJxmIx2HyGLv+TlykUCgABmGYzzObzuczWcKujzOa0ug02h" +
"z+r1Wtz2qoCA2QAYG1yk02YA3NMy2Yh8Sh202zx4gA4jxADM5XG4vHACy6ESdjM6XUZiZTMS5bwZSm1c83+yQHCYHk81Q8O7qW18u/9NG3vAf/y83u4PQWQA0ZVADq/z" +
"6um6rkuw7TqH+5bYJu+z5vE8z2N02cGweoDfwfCrbQfBqkNzBb6QfDLxp6+LlOs5cSOTEzlm7FYACFFwADvGIAGvGjzOu7MbwHHECQSmUOvS8cGwk20gQc2ycQs4MLvL" +
"D8MNtDSfyS+cmyZJzywa96axzDsTw6/x1AAL8xRbF8Vm65jkH/AL8QFNTqR6lsfuDIb2uDKTzTo88FTtIk+PK3SNRDKiew5JVDSnK08NnOUGRClkt0PFEDUjMwAENS4A" +
"M2zj4udNznujT1PTgjdGQg8c71RPtESvCL1JrO8lozQUj1nP6d1TKtc0U8dS1jCaNRzGhrxnGthWJYdjUrYwc2ZMMx2NB8czZNk4VLPMstzXD6Q6mltVjPNAT0m1CvnD" +
"tBxBXlI3PRKNzZDtjQ6cd5TQ/TSU0/r/udC0A1Ez1SUja8/QhWVavrSLfpxWNzXZR2CygmVtXXVl03Lg+BV+lV3UjeDgzEL4AXkcb6Pje5LZNDzhuLfrOX/RtT0TQbc5" +
"lENSvBi2K5xlFdUHhN1ZhJ9F59WybOU7NjWTFkvxhGT9zIIQAWYHIABFqmnABSsT0HUaNYlI1dZmjNuUDRybzvIVWyDoOc54n8Oyxm9Ta9cSUaLbbg44+b4xiO9nY/pt" +
"73u38Tuc52tpdruYxDVyUbBV+gYpu2c7PyGMKTt21cjnW6OvzO8PppUvP/Ljlt/wt/Vvn+v8V1eCdbgaa7fnMi8vyD0TnzGEJXyp/wJ3js98iXe+F3/hwGM3jeQZjTeU" +
"znmOT5bTKJyqYcbm2c5bzXpqvsWw4FUkCO473wgB8cD9/znzO14n1+D4/efcTP4fl5+WKvxbbptmqV+B/ni/68R4514AvxeTAR50B3oPNei/iBhFgfErgeR4kBIiSAAJ" +
"KSiC7PT5wMKIQ4fwfyHDzg2PwD4/B/jgg2PgA48AfjgB+RkeAARwAPGAA8jI4AADgAOMAAZGTyw6YbDkA7ZDaAHgxDyCxGgBw8EBBmJcS4LjAATDweBGoqjgAGP4jQ/A" +
"cjwAHBsiQex8gPH+MF7pDxxkB"));
Grid1->DrawGridLines = Exgridlib_tlb::GridLinesEnum::exAllLines;
Grid1->LinesAtRoot = Exgridlib_tlb::LinesAtRootEnum::exLinesAtRoot;
Grid1->GridLineStyle = Exgridlib_tlb::GridLinesStyleEnum::exGridLinesHDash;
Grid1->AutoEdit = false;
Grid1->ExpandOnDblClick = false;
Exgridlib_tlb::IColumnsPtr var_Columns = Grid1->Columns;
	Exgridlib_tlb::IColumnPtr var_Column = var_Columns->Add(L"Column");
		var_Column->DisplayFilterButton = true;
		var_Column->set_Def(Exgridlib_tlb::DefColumnEnum::exCellHasCheckBox,TVariant(true));
		var_Column->Editor->EditType = Exgridlib_tlb::EditTypeEnum::EditType;
	Exgridlib_tlb::IColumnPtr var_Column1 = var_Columns->Add(L"Button");
		var_Column1->AllowSizing = false;
		var_Column1->Width = 18;
		var_Column1->set_Def(Exgridlib_tlb::DefColumnEnum::exCellHasButton,TVariant(true));
Exgridlib_tlb::IItemsPtr var_Items = Grid1->Items;
	long h = var_Items->AddItem(TVariant("parent"));
	var_Items->set_CellImage(TVariant(h),TVariant(0),1);
	var_Items->InsertItem(h,TVariant(""),TVariant("child"));
	var_Items->set_ExpandItem(h,true);
Grid1->EndUpdate();

// ColumnClick event - Fired after the user clicks on column's header.
void __fastcall TForm1::Grid1ColumnClick(TObject *Sender,Exgridlib_tlb::IColumn   *Column)
{
	// Column.Selected = True
	Grid1->BeginUpdate();
	Grid1->Columns->get_Item(TVariant(0))->Selected = false;
	Grid1->Columns->get_Item(TVariant(1))->Selected = false;
	Grid1->Items->SelectAll();
	Grid1->EndUpdate();
}

Grid1->BeginUpdate();
Grid1->MarkSearchColumn = false;
Grid1->ShowFocusRect = false;
Grid1->SingleSel = false;
Grid1->FullRowSelect = Exgridlib_tlb::CellSelectEnum::exRectSel;
Grid1->SortOnClick = Exgridlib_tlb::SortOnClickEnum::exNoSort;
Exgridlib_tlb::IColumnsPtr var_Columns = Grid1->Columns;
	var_Columns->Add(L"Column1");
	var_Columns->Add(L"Column2");
Exgridlib_tlb::IItemsPtr var_Items = Grid1->Items;
	var_Items->set_CellValue(TVariant(var_Items->AddItem(TVariant("One"))),TVariant(1),TVariant("Three"));
	var_Items->set_CellValue(TVariant(var_Items->AddItem(TVariant("Two"))),TVariant(1),TVariant("Four"));
	var_Items->SelectAll();
Grid1->EndUpdate();

Exgridlib_tlb::IColumnPtr var_Column = Grid1->Columns->Add(L"Currency");
	var_Column->FormatColumn = L"dbl(value) ? currency(dbl(value)) : ``";
	Exgridlib_tlb::IEditorPtr var_Editor = var_Column->Editor;
		var_Editor->EditType = Exgridlib_tlb::EditTypeEnum::EditType;
		var_Editor->Numeric = Exgridlib_tlb::NumericEnum::exFloat;
Exgridlib_tlb::IItemsPtr var_Items = Grid1->Items;
	var_Items->AddItem(TVariant(1.23));
	var_Items->AddItem(TVariant(2.34));
	var_Items->AddItem(TVariant(0));
	var_Items->AddItem(TVariant(10000.99));

Grid1->Columns->Add(L"Number");
Grid1->Columns->Add(L"Currency")->ComputedField = L"%0 ? currency(%0) : ``";
Exgridlib_tlb::IItemsPtr var_Items = Grid1->Items;
	var_Items->AddItem(TVariant(1.23));
	var_Items->AddItem(TVariant(2.34));
	var_Items->AddItem(TVariant(0));
	var_Items->AddItem(TVariant(10000.99));

Grid1->BeginUpdate();
Grid1->BackColorAlternate = RGB(240,240,240);
Grid1->Columns->Add(L"Names");
Exgridlib_tlb::IItemsPtr var_Items = Grid1->Items;
	var_Items->AddItem(TVariant("Mantel"));
	var_Items->AddItem(TVariant("Mechanik"));
	var_Items->AddItem(TVariant("Motor"));
	var_Items->AddItem(TVariant("Murks"));
	var_Items->AddItem(TVariant("Märchen"));
	var_Items->AddItem(TVariant("Möhren"));
	var_Items->AddItem(TVariant("Mühle"));
Grid1->Columns->get_Item(TVariant(0))->SortOrder = Exgridlib_tlb::SortOrderEnum::SortAscending;
Grid1->EndUpdate();
OutputDebugString( PChar(Grid1->GetItems(TVariant(1))) );

// EditClose event - Occurs when the edit operation ends.
void __fastcall TForm1::Grid1EditClose(TObject *Sender)
{
	Grid1->Items->AddItem(TVariant(""));
}

Grid1->BeginUpdate();
Grid1->AutoEdit = true;
Grid1->Columns->Add(L"Default")->Editor->EditType = Exgridlib_tlb::EditTypeEnum::EditType;
Grid1->FullRowSelect = Exgridlib_tlb::CellSelectEnum::exColumnSel;
Grid1->Items->AddItem(TVariant(""));
Grid1->DrawGridLines = Exgridlib_tlb::GridLinesEnum::exAllLines;
Grid1->ScrollBars = Exgridlib_tlb::ScrollBarsEnum::exDisableBoth;
Grid1->EndUpdate();

Grid1->BeginUpdate();
Grid1->HTMLPicture[L"pic1"] = TVariant("c:\\exontrol\\images\\zipdisk.gif");
Grid1->HeaderHeight = 48;
Grid1->Columns->Add(L"DefaultSize")->HTMLCaption = L"Default-Size <img>pic1</img> Picture";
Grid1->Columns->Add(L"CustomSize")->HTMLCaption = L"Custom-Size <img>pic1:16</img> Picture";
Grid1->EndUpdate();

Grid1->BeginUpdate();
Exgridlib_tlb::IConditionalFormatPtr var_ConditionalFormat = Grid1->ConditionalFormats->Add(L"1",TNoParam());
	var_ConditionalFormat->Bold = true;
	var_ConditionalFormat->ForeColor = RGB(255,0,0);
	var_ConditionalFormat->ApplyTo = Exgridlib_tlb::FormatApplyToEnum(0x1);
Grid1->Columns->Add(L"C1");
Exgridlib_tlb::IColumnPtr var_Column = Grid1->Columns->Add(L"C2");
	var_Column->HeaderBold = true;
	var_Column->HTMLCaption = L"<fgcolor=FF0000>C2";
Exgridlib_tlb::IItemsPtr var_Items = Grid1->Items;
	var_Items->set_CellValue(TVariant(var_Items->AddItem(TVariant(10))),TVariant(1),TVariant(11));
	var_Items->set_CellValue(TVariant(var_Items->AddItem(TVariant(12))),TVariant(1),TVariant(13));
Grid1->EndUpdate();

Exgridlib_tlb::IColumnPtr var_Column = Grid1->Columns->Add(L"Check");
	Exgridlib_tlb::IEditorPtr var_Editor = var_Column->Editor;
		var_Editor->EditType = Exgridlib_tlb::EditTypeEnum::CheckValueType;
		var_Editor->set_Option(Exgridlib_tlb::EditorOptionEnum::exCheckValue2,TVariant(1));
	var_Column->DisplayFilterButton = true;
	var_Column->DisplayFilterPattern = false;
	var_Column->CustomFilter = L"checked||-1|||unchecked||0";
Exgridlib_tlb::IItemsPtr var_Items = Grid1->Items;
	var_Items->AddItem(TVariant(true));
	var_Items->AddItem(TVariant(true));
	var_Items->AddItem(TVariant(false));
	var_Items->AddItem(TVariant(true));
	var_Items->AddItem(TVariant(false));
	var_Items->AddItem(TVariant(true));
	var_Items->AddItem(TVariant(false));